記事No |
: 1070 |
投稿日 |
: 2024/08/05(Mon) 08:43:34 |
投稿者 |
: JK1NBV 倉部 |
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.
このスレッドは管理者によってロックされていますので、返信並びに編集は出来ません!