dll文件:SiInterface.dll
函数名称 BUSINESS_HANDLE
功能描述：
调用执行各交易，进行各种业务处理
调用语法：
int BUSINESS_HANDLE (const char* inputData,char* outputDat)
参数描述：
参数标识 参数名称 数据类型 输入输出
inputData 输入数据 char* IN
outputData 输出结果 char* OUT
在dll中调用
procedure TForm1.Button2Click(Sender: TObject); //调用人员信息
type
Tdll=function(const inputData: pchar;var outputDat:Pchar): integer;stdcall;//cdecl;//
var DllInstance:THandle;
pFunc:TFarProc;
str1:string;
str_input,str_output:Pchar;
N:INTEGER;
begin
DllInstance:=loadlibrary(pchar('SiInterface.dll'));
if DllInstance<>0 then
pFunc:=GetProcaddress(DllInstance, 'BUSINESS_HANDLE');
showmessage('1');
if pFunc <> nil then
begin
N:=Tdll(pFunc)(pchar('01'),str_output); //
showmessage('2');
end
freelibrary(DllInstance);
showmessage('完成');
end;
能够执行到最后一步,但点击最后一提示框(消息:完成)后,程序出现死机状态,等一会出现提示:程序已停止工作,出现一个问题,导致程序停止正常工作,如有可用的解决方案,Windows将关闭程序通知你;
调试和关闭程序两按钮.
请指点一个是什么原因呀!!

如果你一直無法解決這個問題的(其實由發帖, 我們也很難幫到你, 因為 dll 內容不清楚)
請你嘗試眼盲法看能不能避開, 就是在 loadlibrary 至 freelibirary 給包起來
try
.....
except
// 這裡不要寫任何code, 讓引發的錯誤假裝看不見, 但這不是萬靈丹, 有些 memory error 的死機優先權仍然是高於這段的
end;

你的 INPUT 跟 OUTPUT 是否有給限制長度以內的字串 ?

str_output: pchar;
...
StrAlloc(100);
:= 01N:=Tdll(pFunc)( , str_output);
...

樓主怎麼跑臺灣的論壇裏問大陸的醫保接口問題啊
我一看這個DLL的名字, 我就知道這是東軟的醫保接口, 好惡心啊
時間過了這麼久了, 也不知道我的代碼是不是還對你有用, 这是我在公司用的代码, 使用下面的CALLFUN()就OK

[code delphi]
var
YBHandle: integer; // DLL句柄
const
sDllName='SiInterface.dll'; // DLL檔案名

// Load DLL File
function THNJBProc.LoadYBLib:Boolean;
var
pDLLName:PChar;
begin
result:=true;
if YBHandle=0 then
begin
GetMem(pDLLName,Length(sDllName) 1);
try
StrPCopy(pDLLName,sDllName);
YBHandle := LoadLibrary(pDLLName);
finally
FreeMem(pDLLName);
end;
if YBHandle = 0 then
begin
MessageDlg(format('装入%s失败,可能该文件不存在!',[sDllName]),mtError,[mbOK],0);
result := False;
end;
end;
end;

// Free Dll File
procedure THNJBProc.FreeLib;
begin
if YBHandle <> 0 then
FreeLibrary(YBHandle);
YBHandle := 0;
end;
function THNJBProc.CallFUN(InputData:String; var OutPutData:String):Integer;
var
AFUNC: function(AInput, AOutput: PChar): Integer; stdcall;
Pinput, Poutput: PChar;
sOutPut: string;
begin
Result := -1;
try
if LoadYBLib then
begin
GetMem(Pinput,2048);
GetMem(Poutput,2048);
try
sOutPut := '';
StrPCopy(Pinput,InputData);
StrPCopy(Poutput,sOutPut);
@AFUNC := GetProcAddress(YBHandle, 'BUSINESS_HANDLE');
if @AFUNC <> nil then
begin
Result := AFUNC(Pinput,Poutput);
sOutPut := Poutput;
OutPutData := sOutPut;
//RZini.WriteString(sTimeStr,'执行结果(0:成功,小于0:失败)',IntToStr(Result));
//RZini.WriteString(sTimeStr,'返回消息',sOutPut);
end;
finally
FreeMem(Pinput);
FreeMem(Poutput);
end;
end;
except
on E:Exception do
ShowMessage('调用BUSINESS_HANDLE出现错误:' E.Message);
end;
end;
[/code]

------
城市里, 我像一粒尘埃, 默默地存在...

編輯記錄