一括表示 件名: HAMLOGOPENで ファイルがオープンできませんエラー
記事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.
このスレッドは管理者によってロックされていますので、返信並びに編集は出来ません!
関連一覧ツリー 一括表示 をクリックするとツリーを一括表示します)
一括表示 HAMLOGOPENで ファイルがオープンできませんエラー - JK1NBV 倉部 08/05-08:43 No.1070
  Re: HAMLOGOPENで ファイルがオープンできませんエラー - je6lao長野 08/05-13:41 No.1071
    Re: HAMLOGOPENで ファイルがオープンできませんエラー - JK1NBV 倉部 08/05-20:16 No.1072
      Re: HAMLOGOPENで ファイルがオープンできませんエラー - JG1MOU浜田 08/06-07:19 No.1073
        Re: HAMLOGOPENで ファイルがオープンできませんエラー - JG1MOU浜田 08/06-09:12 No.1074
          Re: HAMLOGOPENで ファイルがオープンできませんエラー - JK1NBV 倉部 08/06-15:10 No.1075
            Re: HAMLOGOPENで ファイルがオープンできませんエラー - JG1MOU浜田 08/06-20:00 No.1076
              Re: HAMLOGOPENで ファイルがオープンできませんエラー - JK1NBV 倉部 08/06-22:25 No.1077
                Re: HAMLOGOPENで ファイルがオープンできませんエラー - JG1MOU浜田 08/07-08:53 No.1078
                  Re: HAMLOGOPENで ファイルがオープンできませんエラー - JK1NBV 倉部 08/07-17:30 No.1079
                    Re: HAMLOGOPENで ファイルがオープンできませんエラー - JK1NBV 倉部 08/08-08:42 No.1080