改用Delphi调用动态库(原C#调用动态库)

[hong6530]

用C#调用正常
[DllImport("plcommpro.dll", EntryPoint = "GetDeviceData")]
public static extern int GetDeviceData(IntPtr h, ref byte buffer, int buffersize, string tablename, string filename, string filter, string options);

private void btngetdat_Click(object sender, EventArgs e)
{
int ret = 0;
int BUFFERSIZE = 10 * 1024 * 1024;
byte[] buffer = new byte[BUFFERSIZE];
if (IntPtr.Zero != h)
{
ret = GetDeviceData(h, ref buffer[0],BUFFERSIZE, "user", "*", "", "");
}
else
{
MessageBox.Show("Connect device failed!");
return;
}
}


改Delphi调用出错，求指点
Type TGetDeviceData=function(h:hWnd;var buffer:array of PByte;BufferSize: Longint; TableName,FieldNames,Filter,Options: string):Integer;Stdcall;

procedure TfrmMain.dxBarLargeButton2Click(Sender: TObject);
var
buffer :array of PByte;
lBUFFERSIZE: Longint;
ret,lLength,lStrat,lEnd: Integer;
devtablename, str, devdatfilter, options:string;
begin
ret :=0;
lBUFFERSIZE :=10*1024*1024;
SetLength(buffer,lBUFFERSIZE);
ret :=GetDeviceData(h,buffer,lBUFFERSIZE, 'user', '*', '','');
if ret >= 0 then
begin
ShowMessage(IntToStr(ret));
end;
end;

[javamy038]

谢谢。虽然根本看不懂 ！！

[SQLDebug_Fan]

DELPHI要调C#的动态，需要做成COM

[hxy3100]

var buffer:array of PByte改成var buffer:array of Byte试试

[fang]

Type TGetDeviceData=function(h:hWnd;var buffer:array of PByte;BufferSize: Longint; TableName,FieldNames,Filter,Options: string):Integer;Stdcall; 是不是调用约定的问题啊,Stdcall换成cdecl试下;

[SS_LO]

buffer:array of PByte ----> buffer:array of byte or buffer:Pbyte test???

[山东蓝鸟贵薪]

delphi可以调用C#的DLL文件， 但是要注意C#的DLL文件中的接口的，否则就会出错的