HAMLOG プログラム開発室

浜田様

コメントありがとうございます。

いただいた内容で、変数宣言を変更すると、
E2010 'PWideChar'と'PAnsiChar'には互換性がありません。
のエラーが、HAMLOGOPENの行で出力されるようになりました。

> 訂正します。
>
> dbpath: string;
> Pdbpath: PChar;
>
> ではなくて、
>
> dbpath: AnsiString;
> Pdbpath: PAnsiChar;
>
> としてみたらいかがでしょうか？

訂正します。

dbpath: string;
Pdbpath: PChar;

ではなくて、

dbpath: AnsiString;
Pdbpath: PAnsiChar;

としてみたらいかがでしょうか？

dbpath: string;

ではなくて、

dbpath: AnsiString;

ではいかがでしょうか？

長野様

確認ありがとうございます。
先頭の1文字しかよまれていないということですね。

この相談室で、HAMLOGOPENのファイル名を変数にするにはという質問をみつけて、おなじようにしたのですが、だめでした。
そこで、投稿してみたしだいです。

1バイトであるべきものが、2バイトでコピーされているとかあるのでしょうかね。

もう少し、試してみます。

> こんにちは。
> こちらでソースをコピーして試してみました。
> 同じエラーでした。
>
> HamlogOpenでファイル名をPdbpath(Pchar)で渡していますが、最初の一文字しか読んでいないような反応です。
>
>
> > JK1NBVです。
> >
> > Delphiは、初心者です。プログラマー歴40年、
> > 言語は、Z80、Mesa、Perl、C、Java、Lisp, Python等、色々使用しています。
> > Pythonではアクセスできないというので、Delphiに挑戦しています。
> >
> > HAMLOGOPENでエラー ファイルがオープンできません。C.MSTが表示されます。
> >
> > コードは、以下です。
> > Delphi 12．1 CE版です。
> > OS: Windows 11 Pro
> > 解決のヒントを頂ければと思います。
> > よろしくお願いいたします。
> >
> >
> >
> >
> > program Test1;
> >
> > {$APPTYPE CONSOLE}
> >
> > {$R *.res}
> >
> > uses
> > System.SysUtils, Hamlog50;
> > var
> > version: integer;
> > retF: Integer;
> > tth: TThLog;
> > dbpath: string;
> > Pdbpath: PChar;
> >
> > begin
> >
> > dbPath:= 'C:\HAMLOG\HAMLOG.hdb';
> >
> > WriteLn('StrCopy');
> > GetMem(Pdbpath, length(dbpath)+1);
> > StrPCopy(Pdbpath, dbpath);
> >
> > WriteLn('Open');
> > retF := HamlogOpen(nil, tth, Pdbpath, 0);
> > WriteLn('リターン値:' + IntToStr(retf));
> > if (retf <> SUCCESS) then Exit;
> >
> > end.

こんにちは。
こちらでソースをコピーして試してみました。
同じエラーでした。

HamlogOpenでファイル名をPdbpath(Pchar)で渡していますが、最初の一文字しか読んでいないような反応です。


> JK1NBVです。
>
> Delphiは、初心者です。プログラマー歴40年、
> 言語は、Z80、Mesa、Perl、C、Java、Lisp, Python等、色々使用しています。
> Pythonではアクセスできないというので、Delphiに挑戦しています。
>
> HAMLOGOPENでエラー ファイルがオープンできません。C.MSTが表示されます。
>
> コードは、以下です。
> Delphi 12．1 CE版です。
> OS: Windows 11 Pro
> 解決のヒントを頂ければと思います。
> よろしくお願いいたします。
>
>
>
>
> program Test1;
>
> {$APPTYPE CONSOLE}
>
> {$R *.res}
>
> uses
> System.SysUtils, Hamlog50;
> var
> version: integer;
> retF: Integer;
> tth: TThLog;
> dbpath: string;
> Pdbpath: PChar;
>
> begin
>
> dbPath:= 'C:\HAMLOG\HAMLOG.hdb';
>
> WriteLn('StrCopy');
> GetMem(Pdbpath, length(dbpath)+1);
> StrPCopy(Pdbpath, dbpath);
>
> WriteLn('Open');
> retF := HamlogOpen(nil, tth, Pdbpath, 0);
> WriteLn('リターン値:' + IntToStr(retf));
> if (retf <> SUCCESS) then Exit;
>
> end.

JK1NBVです。

Delphiは、初心者です。プログラマー歴40年、
言語は、Z80、Mesa、Perl、C、Java、Lisp, Python等、色々使用しています。
Pythonではアクセスできないというので、Delphiに挑戦しています。

HAMLOGOPENでエラー ファイルがオープンできません。C.MSTが表示されます。

コードは、以下です。
Delphi 12．1 CE版です。
OS: Windows 11 Pro
解決のヒントを頂ければと思います。
よろしくお願いいたします。




program Test1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
System.SysUtils, Hamlog50;
{$IFDEF MSWINDOWS}

{$ENDIF}
var
version: integer;

//DB Handle
//dbH: TDBFh;
//リターンフラグ
retF: Integer;

tth: TThLog;

dbpath: string;
Pdbpath: PChar;

begin

dbPath:= 'C:\HAMLOG\HAMLOG.hdb';

Writeln('PG: 4');

version := GetThdllVersion();
Writeln(IntToHex(version,6));

WriteLn('StrCopy');
GetMem(Pdbpath, length(dbpath)+1);
StrPCopy(Pdbpath, dbpath);

WriteLn('Open');
retF := HamlogOpen(nil, tth, Pdbpath, 0);
WriteLn('リターン値:' + IntToStr(retf));
if (retf <> SUCCESS) then Exit;

retF:=THW_read(ttH, 1, 0);
WriteLn('リターン値:' + IntToStr(retf));
if (retf <> SUCCESS) then
begin
HamlogClose(tth, 0);
Exit;
end;

WriteLn('Call Sign: ' + tth.qso.Calls);

HamlogClose(tth, 0);

end.

> はじめまして
>
> Pythonから、Hamlog50.dllを呼び出すことは可能でしょうか?
>
> 単純にPythonのCDLLで呼び出すと、
> OSError: [WinError 193] %1 は有効な Win32 アプリケーションではありません。
> のメッセージが出力されます。
> Pythonのバージョンは、3.11.2
>
>
> Borland のDLLだから、NGということなのでしょうか?
> Webを探しても、PythonからBorlandのDLLを呼び出す例はほとんどありません。

私は　Python　を使っていません　C＃を使っています
DLLはBorlandだからと言う事ではなくて、呼び出し時の引数渡しにスタックで渡しますがこの渡し方が言語によって異なる事が原因だと思います。C＃でHamlog50.dll　を呼び出す場合でもこの違いで苦労しました。
C/C++ DLL with ctypes　に該当すると思いますので　良く調べて下さい

Webでは　次の情報が見受けられます　
C++ クラス DLL は直接呼び出せないので、C++ クラス DLL を呼び出したければ ラッパー用の C DLL を用意する。
C DLL は呼び出し規約に応じて、 __cdecl なら cdll、 __stdcall なら windll を用いる。
とあります　どのタイプが良いのかは　テストで確かめるしかなさそうですが。

その他に
Python と DLL のアーキテクチャを合わせる。Python が x64 版なら DLL も x64、Python が x86 なら DLL も x86 でないと呼び出せません。
等も見られます。

はじめまして

Pythonから、Hamlog50.dllを呼び出すことは可能でしょうか?

単純にPythonのCDLLで呼び出すと、
OSError: [WinError 193] %1 は有効な Win32 アプリケーションではありません。
のメッセージが出力されます。
Pythonのバージョンは、3.11.2


Borland のDLLだから、NGということなのでしょうか?
Webを探しても、PythonからBorlandのDLLを呼び出す例はほとんどありません。

おそらく同じような現象だとは思いますが、
「HAMLOG50.DLLのバージョンが一致しません」とメッセージが出て開くことができません。
Ver5.35aを使っていて、その後5.37cの時に同じ症状が出ていたので、もとに戻したのですが、NEW　JCCなど出てきたのでVerを上げたいのですが、どのようすればよいものかと・・・。

こんばんは。ありがとうございます。

> "CALLS"　だけで十分では？　つまり、現状のHAMLOGデータを開くだけ。

CALLS だけの検索が早いので、その後に Band + Mode が等しければの
処理をすると言うことですね。
試して見ます。