HAMLOG プログラム開発室

VB2010 で Hamlog が起動時に　cmmd= 15 でデータ入力ウインドウに文字列を転送し、Save もしています。

Hamlog が起動したままで転送・保存済の Hamlog.hdb の最後のレコードの中身を取得し
code , name , qth が空白なら 文字列をセットして THW_update 処理をしています。

この時に 「No15 インデックスの再構築が必要です。Hamlog.dx1 」が出ます。
この処理を VB2010 で行うにはどうすれば良いでしょうか？

このメッセージには [ OK ] を２回クリックすると処理は終了します。

さらに Hamlog メニューの [ 再読み込み ] をクリックすると更新内容が表示されます。

この処理を VB2010 で行うにはどうすれば良いでしょうか？

[ 再読み込み ] のマウスカーソルの位置を取得してクリックをシュミレーション以外には無いでしょうか？

◆現状
表の見出し【QSL】欄に【S　】Sendは、送信済。
同じく【　R】Receiveは、受領。
したがって、送受信完了は、【SR】としています。

検索・確認方法は、どの様にするのでしょうか??。
まったく、やり方が邪道かと存じます。

よろしくお願いいたします。

長野さん、こんにちは。

> Delphi6では、usesに windowsがあれば使えるようです。

通常に新規作成時には　usesに windows　は書かれているので
そのままで行けると思ったのですがＶＢ（.Ｎｅｔ）に比べてシビアのようで。

ありがとうございました。

太田さん、ご紹介をありがとうございます。

Freeでもなかなか使えそうですね。
いまDelphiもFreeがあるのですが、このような開発環境に対応するためなのかもしれませんね。

Delphi6では、usesに windowsがあれば使えるようです。

> 浜田さん、こんにちは。　ありがとうございます。
>
> ご提示いただいたサンプルも組み込みテストをしていますが　uses での追記が必要なのか
> エラーが出て進まないので別のサンプル dt_jst:=IncHour(dt_utc,9); を使って一応の形にまとめました。

浜田さん、こんにちは。　ありがとうございます。

ご提示いただいたサンプルも組み込みテストをしていますが　uses での追記が必要なのか
エラーが出て進まないので別のサンプル dt_jst:=IncHour(dt_utc,9); を使って一応の形にまとめました。

長野さん、こんにちは。色々とありがとうございます。

> 太田さん、Delphiはどのバージョンをお使いですか？

JT65-HF-HB9HQX-Edition のソースを自分なりに修正したいだけが目的なくで
JT65-HF-HB9HQX-Edition のソース関係に説明されていた　Lazarus-1.6.4 ( Free Pascal ) です。

https://sourceforge.net/projects/jt65hfhb9hqxedi/files/　のページの中の　[ Lazarus Project ]
しかしこの手順でインストールをしたのですが（数回やりなおした）結構面倒で．．．。
あれこれＷｅｂを見て回っているうちに下記にたどりつきました。こちらは非常に楽でした。
【32bit版】 」[ タイプ－２ ] を使っています。
http://lazpas.e-hiyori.org/wp/lazarus-windows

> IDEでTh.と打った時点で次の選択肢の一覧が表示されませんか。
> 次にQを押すと一覧がQsoのみになりそれを選択し .を押すとまた一覧が表示されます。そこにFlag1があります。構造体の中にFlagはありませんので、エラーになると思います。

はい、そうですね、だんだんと分る様になって来て Flag1 を使っています。


> thw_callの型は何でしょうか？　

String です。

昔にＣも少しかじったのですがデータ型、ポインター辺りで挫折して VB ばかりやって来ました。
今回は目的があっての事なのですが試行錯誤の繰り返しで時間ばかりが掛かっています。

JT65 関係のソフトは Hamlog に直接ＱＳＯデータを転送する機能がありません。
ＪＡの方が作成した　JT_Linker のみと思います。

ここ２週間程前から JTDX , WSJT-X 用には JT65toThw.exe を VB2010 で作成して
ＪＡ１の方にテストしてもらっています。

JT65-HF-HB9HQX-Edition はＱＳＯデータが SQLite なので苦労して読める用にして自宅では使えるのですがＪＡ１の別の方のテストでは SQLite が読めていないそうです。

そこでソースは OpenSource で修正・コンパイルツールも入手出来たので
直接 Hamlog にＱＳＯデータ転送をする事にしたのです。
ほぼ初期の仕様としては出来たのでＪＡ１の方にテスト依頼をします。

ありがとうございました。

浜田さん、こんにちは。　ありがとうございます。


> 何が解らないのかが解らないのですが、HAMLOGでは、Windows-APIを
> 使って変換してます。

試していたサンプルが複雑過ぎて宣言が多くて現在のソースに追記するとその場所では不適切の様でコンパイルエラーが出たりしました。
もっと易しサンプルを．．．と思っていたら見つけてテストＯＫ、
ここで掲示板を見たら浜田さんの回答がありました。
私がテストしたのは下記のページの
function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1) :TDateTime;
「月に1を追加します。
http://www.w3ii.com/ja/pascal/pascal_date_time.html


「月に1を追加」があるなら「時間に追加」もあるだろうと検索したら
下記がありました。
function IncHour(const AValue: TDateTime; const const AValue: TDateTime; const ANumberOfHours:Int64 ):TDateTime;

https://www.freepascal.org/docs-html/rtl/dateutils/inchour.html

浜田さんが提示してくれたサンプルは今から試します。

> Pasacl 講座の続きですがお願いします。
>
> UTC を JST に変換する処理でつまずいています。
> VB2010 ではサンプルも多くあり既に出来ていますが Pasacl の例が少ないようで。
>
> Delphi のサンプルはそこそこありますが宣言の procedure 文の記載箇所が正しく無いようでエラーで落ちてしまったり
> 流用出来ないでいます。

何が解らないのかが解らないのですが、HAMLOGでは、Windows-APIを
使って変換してます。

var
　Systm: TSYSTEMTIME;
　Filtm1, Filtm2: TFILETIME;
begin
if SystemTimeToFileTime(Systm, Filtm1) and
//　LocalFileTimeToFileTime(Filtm1, Filtm2) and // JST => UTC
　　FileTimeToLocalFileTime(Filtm1, Filtm2) and // UTC => JST
　　FileTimeToSystemTime(Filtm2, Systm) then
　　　　変換完了！;
end;

Pasacl 講座の続きですがお願いします。

UTC を JST に変換する処理でつまずいています。
VB2010 ではサンプルも多くあり既に出来ていますが Pasacl の例が少ないようで。

Delphi のサンプルはそこそこありますが宣言の procedure 文の記載箇所が正しく無いようでエラーで落ちてしまったり
流用出来ないでいます。