用 Delphi 編寫可跨語言調用的 DLL：文件拷貝示例

DLL 導出函數規範

• 使用 stdcall 調用約定 (Windows API 標準)。
• 參數避免使用 Delphi 專有類型 (如 string、動態數組)，改用 PChar、Integer 等。
• 導出聲明加 export 或在 .def 文件定義。

完整 DLL 源碼

library CopyFileDLL;

uses
  SysUtils, Classes;

procedure CopyFile(SourceName, DestName: PChar); stdcall;
var
  SourceF, DestF: File;
  Buf: array[1..4096] of Byte;
  NumRead, NumWritten: Integer;
begin
  AssignFile(SourceF, SourceName);
  Reset(SourceF, 1);
  AssignFile(DestF, DestName);
  Rewrite(DestF, 1);
  try
    repeat
      BlockRead(SourceF, Buf, SizeOf(Buf), NumRead);
      BlockWrite(DestF, Buf, NumRead, NumWritten);
    until (NumRead = 0) or (NumWritten <> NumRead);
  finally
    CloseFile(SourceF);
    CloseFile(DestF);
  end;
end;

exports
  CopyFile name 'CopyFile';

begin
end.

Delphi 靜態調用

procedure CopyFile(SourceName, DestName: PChar); stdcall; external 'CopyFileDLL.dll';

procedure TForm1.BtnCopyClick(Sender: TObject);
begin
  if FileExists(EdtSource.Text) then
    CopyFile(PChar(EdtSource.Text), PChar(EdtDest.Text));
end;

VB/VBA 調用示例

Declare Sub CopyFile Lib "CopyFileDLL.dll" (ByVal SourceName As String, ByVal DestName As String)

Private Sub Command1_Click()
  CopyFile "C:\Source.dat", "D:\Backup.dat"
End Sub

C/C++ 調用示例

// .h
extern "C" void __stdcall CopyFile(const char* SourceName, const char* DestName);

// .cpp
CopyFile("C:\\Source.dat", "D:\\Backup.dat");

關鍵點總結

1. 緩衝區 4KB 平衡性能與內存。
2. 使用 BlockRead/BlockWrite 非結構化讀寫，適合任意二進制文件。
3. 導出名稱大小寫敏感，建議統一小寫或使用 .def 文件。
4. 錯誤處理可擴展：返回錯誤碼、設置 GetLastError 等。