如何用DELPHI 宣告呼叫C寫的DLL，請各位大大幫忙，謝謝 Function Define : int DLL_IMPORT_EXPORT CR_ParseP12File( char *pin, /* IN unsigned char *p12, /* IN(bincode) int len12, /* IN unsigned char **cert, /* R int *lenCert /* R ); IN 表示傳入參數, R 表是傳出參數

這樣寫就行了 function CR_ParseP12File(pin, p12: PChar; len12: integer; var cert: PChar; var lenCert: integer): integer; external 'DLLNAME'; 試試看吧

其中 unsigned char *p12, 是要帶入檔案內容(bincode) 但如果是用pchar如何帶進去? 用pointer嗎?

嗯，用 Pointer 當然也是可以

出現Access violation ... 真是傷腦筋丫 有那要注意的嗎?

引言: 出現Access violation ... 真是傷腦筋丫 有那要注意的嗎? < face="Verdana, Arial, Helvetica"> 顯然是指標指錯了吧

實在是試不出來，將原文貼出來請幫忙寫成delphi，感激不盡丫。 1. 開啟 XXXXX 檔案 2. 將檔案內的資料讀進並存放在一個字串陣列內 3. 呼叫 CR_ChangeUserIdPin()， 前四個參數為傳入(in)，分別是原註冊資料，原註冊資料長度，舊密碼，新密碼； 後兩個參數為傳出(out)，分別是新註冊資料，新註冊資料長度 4. 將新註冊資料寫入XXXXX 檔 Function Name : CR_ChangeUserIdPin Function Define : int DLL_IMPORT_EXPORT CR_ChangeUserIdPin( unsigned char *oldFile, /* IN –原註冊資料*/ int lenOldFile, /* IN –原註冊資料長度*/ char *oldPin, /* IN –舊密碼*/ char *newPin, /* IN –新密碼*/ unsigned char **newFile, /* R dynamic –新註冊資料*/ int *lenNewFile, /* R –新註冊資料長度*/ ); IN 表示傳入參數, R 表是傳出參數

// 宣告
function CR_ChangeUserIdPin(
  oldFile: Pointer;
  lenOldFile: integer;
  oldPin: PChar;
  newPin: PChar;
  var newFile: Pointer;
  var lenNewFile: integer): integer; stdcall; external 'DLLNAME';    // 範例
var
  oldPin, newPin: string;
  lenOldFile, lenNewFile: integer;
  oldFile: array [0..XXX] of char;
  newFile: Pointer;
begin
  ...
  oldPin := 'OLD Pass';
  newPin := 'NEW Pass';
  ...
// 因為沒有這個 function 的詳細定義
// 我只能推斷說，newFile 是由 DLL 負責配置記憶體的，所以才傳 ** 過去
// 所以，我就在 Delphi 中改成 var XX: Pointer
  CR_ChangeUserIdPin(
    @ oldFile,
    lenOldFile,
    PChar(oldPin),
    PChar(newPin),
    newFile,
    lenNewFile);
end;

我只能猜大概是這樣用 Access violation 大柢是指標出了問題 這個部份多留意就行了

不會出現Access violation 接下來我就先自已試試了， 真是非常感謝