健保IC卡寫入作業以取得就醫序號為例 API name:hisGetSeqNumber(char*cTreatItem,Char* cBabyTreat,char *pBuffer,int*iBufferLen); 請問我該怎麼把一個string轉成char送給他呢? 不知可有人可提供這一小段之程式範例呢? 先言謝了!

var p1, p2, p3: pchar; begin p1:= pchar(p1); . . . end; 轉成pchar可以解決你的問題嗎!!??

Hi wang000f 您好: 我是直接這樣宣告, 你可以試一下 function hisGetSeqNumber(CTreatItem: string; CBabyTreat: string; Buffer: PByte; BufLen: PInteger):integer stdcall; external 'cshis.dll'; 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

Hi Miles: 好一個山不轉路轉的寫法，看了您的寫法實在佩服，這樣就會少掉很多轉換的問題，但是您已經變更說明文件的語法，這反而讓我有點下不了手。 再請問一下，我是否可以將所有傳入的值均如此改寫嗎? ※我現在的寫法用很笨的方法 var vTreatItem : Array[0..2] of char; begin vTreamItem:='AC'; end;

Hi wang000f 您好:    

var vTreatItem : Array[0..2] of char; 
begin 
   vTreamItem:='AC';
end;

這樣寫也可, 但若你設中斷點, 你可以發現vTreatItem的值為('A','C',#0), 這其實就是一個標準的PChar字段, 我的建議是若要嚴謹一點, 上述寫法確實 比較好, 可以控制文字長度, 若不需要的話可以直接宣告成PChar. 另外在C 裡的Char *其實就是Delphi的PChar, 只不過我偷懶了一下直接宣告 成String, 想不到還不錯用, 目前還沒發生問題, 我的IC卡Dll的宣告目前都 是這樣做, 不放心的話還是可以宣告成PChar 附上一份C 與Delphi的宣告對照 http://annamar2.akcja.pl/teoria/delphi_builder.htm 我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.

佩服您修改的功力，在此由衷的感謝您的幫助。 David Wang