HAMLOG開発室BBS

Re: hdb append 時の DX Falg 投稿者：JA2BQX 太田

浜田さん、度々ありがとうございます。出来ました。

> 文字列ではなく数値の代入です。

StrPcopy() にこだわっていました。文字列では無いのでStrPcopy() は使えない、　Hi

> Th.QSO.Flag := 8;　// Pascal <== これだとエラーになる。

Th.QSO.Flag1: = 8;　 <== これだとエラーにならない。ＤＸフラグにレ点が付く。 OK

StrPCopy(Th.QSO.Calls,thw_call); の書式にばかりこだわっていましたが
Th.QSO.Calls:=thw_call;　でもテストしてＯＫでした。
どちらでも良いのでしょうが何か差が出るでしょうか？

Pascal 講座みたくなってしまいましたが、もう一つ教えて下さい。

function HamlogOpen(Func: Pointer; var Th: TThLog; const fname: PChar;　const isComp: Integer): Integer;

Hamlog.hdb のパスは PChar で与えるとなっています。
そこで　hamlog_hdb_path:= 'C:\Hamlog\Hamlog.hdb';　の時に

var
buffs: array [0..255] of Char;

Begin
StrPCopy(buffs,hamlog_hdb_path);

sd := HamlogOpen(nil, Th, @buffs[0], 0);　．．．としても転送されません。

Hamlog.hdb のパスを直接　sd := HamlogOpen(nil,Th, 'C:\Hamlog\Hamlog.hdb', 0); とするのでは無くて
変数で指定するにはどう書けば良いのでしょうか？

2017/08/04(Fri) 08:57:53 [No.800]

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > 浜田さん、度々ありがとうございます。出来ました。 > > > 文字列ではなく数値の代入です。 > > StrPcopy() にこだわっていました。文字列では無いのでStrPcopy() は使えない、　Hi > > > Th.QSO.Flag := 8;　// Pascal <== これだとエラーになる。 > > Th.QSO.Flag1: = 8;　 <== これだとエラーにならない。ＤＸフラグにレ点が付く。 OK > > StrPCopy(Th.QSO.Calls,thw_call); の書式にばかりこだわっていましたが > Th.QSO.Calls:=thw_call;　でもテストしてＯＫでした。 > どちらでも良いのでしょうが何か差が出るでしょうか？ > > > Pascal 講座みたくなってしまいましたが、もう一つ教えて下さい。 > > function HamlogOpen(Func: Pointer; var Th: TThLog; const fname: PChar;　const isComp: Integer): Integer; > > Hamlog.hdb のパスは PChar で与えるとなっています。 > そこで　hamlog_hdb_path:= 'C:\Hamlog\Hamlog.hdb';　の時に > > var > buffs: array [0..255] of Char; > > Begin > StrPCopy(buffs,hamlog_hdb_path); > > sd := HamlogOpen(nil, Th, @buffs[0], 0);　．．．としても転送されません。 > > Hamlog.hdb のパスを直接　sd := HamlogOpen(nil,Th, 'C:\Hamlog\Hamlog.hdb', 0); とするのでは無くて > 変数で指定するにはどう書けば良いのでしょうか？
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー