一括表示 件名: Re: HAMLOGOPENで ファイルがオープンできませんエラー
記事No 1071
投稿日 2024/08/05(Mon) 13:41:31
投稿者 je6lao長野
こんにちは。
こちらでソースをコピーして試してみました。
同じエラーでした。

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で ファイルがオープンできませんエラー - 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