HAMLOG プログラム開発室

JI1JDI 神宮様

PythonでHamlogをアクセスする情報ありがとうございます。
この掲示板に5月頃に私の投稿がありますように、Pythonでできず、Delphiでトライしておりました。

Rmk1については、
rmk1 = ctypes.cast(log.Qso.Rmk1, ctypes.c_char_p).value.decode('cp932')
で表示できることも確認しました。

HAMLOG関連ソフトウェア開発者の皆さま、はじめまして。

Turbo HAMLOGにはいつもお世話になっております。ありがとうございます。

Turbo HAMLOGのデータベースをPythonから操作できないかと、いろいろ試しているものを
下記のブログに掲載しています。

ネット上ではあまり情報が見つからなかったので、こちらで情報を共有させていただき、
情報交換などできましたら幸いです。


Turbo HAMLOGのデータをPythonで操作する（１）
https://ji1jdi.hatenablog.com/entry/2024/12/05/211406

Turbo HAMLOGのデータをPythonで操作する（２）
（URL省略）

Turbo HAMLOGのデータをPythonで操作する（３）
（URL省略）

Turbo HAMLOGのデータをPythonで操作する（４）
（URL省略）

#pragma指令の仕様が変わったのでしょうかね。私は古いの使ってますので。

構造体アライメントは、バイトアライメントとしてください。
ファイルヘッダをそのまま構造体に読み込んだりしてますので、ワードアライメントなどでは不都合があります。

> どうも、C++ builder 12 では、hamlog50.h で、__BORLANDC__ が定義されてるのですが、
> #pragma pack(1)
> で指定しないと構造体のアライメントがhamlogのデータに合うようにならないようでした。

どうも、C++ builder 12 では、hamlog50.h で、__BORLANDC__ が定義されてるのですが、
#pragma pack(1)
で指定しないと構造体のアライメントがhamlogのデータに合うようにならないようでした。

> C++ builder でturbo hamlog のデータを読むプログラムを書こうとしています。
> hamlog50.dllを呼び出して、HamlogOpenをしてTHW_readをするところまでできたのですが、下記のように
> TThLog thlog;
> ret=HamlogOpen(NULL,&thlog,fname,0);..
> .
> ret=THW_read(&thlog,count,0);
> のようにcount(>=1) のレコードを読みました。
> if (ret == SUCCESS )
> { ここで、
> thlog.Qso.Calls,thlog.Qso.Date, などは正しく読めているのですが、
>
> thlog.Qso.Freq　などのchar ポインタで定義されているものを読もうとするとaccess violation となってしまいます。
>
> また、thlog.Qso.Rmk1Lenなどの変数の意味が分からず困っているところです。どなたかご存じのかた、アドバイスをいただけないでしょうか？

C++ builder でturbo hamlog のデータを読むプログラムを書こうとしています。
hamlog50.dllを呼び出して、HamlogOpenをしてTHW_readをするところまでできたのですが、下記のように
TThLog thlog;
ret=HamlogOpen(NULL,&thlog,fname,0);..
.
ret=THW_read(&thlog,count,0);
のようにcount(>=1) のレコードを読みました。
if (ret == SUCCESS )
{ ここで、
thlog.Qso.Calls,thlog.Qso.Date, などは正しく読めているのですが、

thlog.Qso.Freq　などのchar ポインタで定義されているものを読もうとするとaccess violation となってしまいます。

また、thlog.Qso.Rmk1Lenなどの変数の意味が分からず困っているところです。どなたかご存じのかた、アドバイスをいただけないでしょうか？

浜田様

　　Hamlog50.pas のChar もAnsiCharに変更したところ、動きました。
　　ありがとうございました。


> 浜田様
>
> 　ありがとうございます。
> 　起動して、データを取り込む所はできました。
> 　しかし、DBから取り出された文字コードが勝手に変換されているらしく、?ばかりが表示される状態です。
> 　文字コードの取り扱いを勉強してみます。
>
>
> > Delphi 12 では、Unicodeが標準だと思います。
> > PChar は 暗黙のうちに PWideCharと見なされるはずです。
> > 一方、HAMLOGでは昔ながらのShiftJISだったりします。
> >
> > Hamlog50.pas 内の宣言を書き換える必要があります。
> > PChar はすべて PAnsiCharに書き換えてください。

浜田様

　ありがとうございます。
　起動して、データを取り込む所はできました。
　しかし、DBから取り出された文字コードが勝手に変換されているらしく、?ばかりが表示される状態です。
　文字コードの取り扱いを勉強してみます。


> Delphi 12 では、Unicodeが標準だと思います。
> PChar は 暗黙のうちに PWideCharと見なされるはずです。
> 一方、HAMLOGでは昔ながらのShiftJISだったりします。
>
> Hamlog50.pas 内の宣言を書き換える必要があります。
> PChar はすべて PAnsiCharに書き換えてください。
>
>
> > コンパイルで、以下の2つの警告・エラーが表示され、コンパイルできません。
> >
> > [dcc32 警告] Test1.dpr(49): W1057 文字列の暗黙のキャスト ('AnsiChar' から 'string')
> > [dcc32 エラー] Test1.dpr(53): E2010 'PWideChar' と 'PAnsiString' には互換性がありません
> >

Delphi 12 では、Unicodeが標準だと思います。
PChar は 暗黙のうちに PWideCharと見なされるはずです。
一方、HAMLOGでは昔ながらのShiftJISだったりします。

Hamlog50.pas 内の宣言を書き換える必要があります。
PChar はすべて PAnsiCharに書き換えてください。


> コンパイルで、以下の2つの警告・エラーが表示され、コンパイルできません。
>
> [dcc32 警告] Test1.dpr(49): W1057 文字列の暗黙のキャスト ('AnsiChar' から 'string')
> [dcc32 エラー] Test1.dpr(53): E2010 'PWideChar' と 'PAnsiString' には互換性がありません
>

浜田様

コンパイルで、以下の2つの警告・エラーが表示され、コンパイルできません。

[dcc32 警告] Test1.dpr(49): W1057 文字列の暗黙のキャスト ('AnsiChar' から 'string')
[dcc32 エラー] Test1.dpr(53): E2010 'PWideChar' と 'PAnsiString' には互換性がありません


> こんな感じではいかがでしょうか？
>
> var
> retF: Integer;
> dbpath: AnsiString;
> begin
> dbPath := 'C:\HAMLOG\HAMLOG.hdb';
> retF := HamlogOpen(nil, tth, PAnsiChar(dbPath), 0);

こんな感じではいかがでしょうか？

var
retF: Integer;
dbpath: AnsiString;
begin
dbPath := 'C:\HAMLOG\HAMLOG.hdb';
retF := HamlogOpen(nil, tth, PAnsiChar(dbPath), 0);