HAMLOG プログラム開発室

長野様

確認ありがとうございます。
先頭の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.