unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function GetReelIDInfo(iReelID, oItem, oVendor, oDateCode, oLotCode, oItemDesc, oTQty, oMsg: Pchar): Integer; cdecl; external 'REELIDINFO.dll';
procedure TForm1.Button1Click(Sender: TObject);
var
iReelID, oItem, oVendor, oDateCode, oLotCode, oItemDesc, oTQty, oMsg: Pchar;
vRet: integer;
begin
iReelID := pchar(Edit1.Text);
GetMem(oItem, 1024);
GetMem(oVendor, 1024);
GetMem(oDateCode, 1024);
GetMem(oLotCode, 1024);
GetMem(oItemDesc, 1024);
GetMem(oTQty, 1024);
GetMem(oMsg, 2048);
vRet := GetReelIDInfo(iReelID, oItem, oVendor, oDateCode, oLotCode, oItemDesc, oTQty, oMsg);
Memo1.Lines.Add(iReelID);
Memo1.Lines.Add(oItem);
FreeMem(oItem);
Memo1.Lines.Add(oVendor);
FreeMem(oVendor);
Memo1.Lines.Add(oDateCode);
FreeMem(oDateCode);
Memo1.Lines.Add(oLotCode);
FreeMem(oLotCode);
Memo1.Lines.Add(oItemDesc);
FreeMem(oItemDesc);
Memo1.Lines.Add(oTQty);
FreeMem(oTQty);
Memo1.Lines.Add(oMsg);
FreeMem(oMsg);
Showmessage(IntToStr(vRet));
end;
end.
//上面是我寫的程源代碼.如果就這樣執行會報地址錯誤,如果把調用DLL文件函數後的全注釋掉就OK.
那麽我們返回的結果要怎麽用呢?
