非常感谢各位的帮助.可我的问题仍然存在.我是这样声明的.
function EstablishConnect(IP_Address:pchar;IP_Port:Integer;TimeOut:Integer;Sock:pCardinal):Integer;stdcall;
function SMT_Read_Id_MacNo(Sock:Cardinal;output:array of byte):Integer;stdcall;
procedure TForm1.Button1Click(Sender: TObject);
var
nResult: Integer;
sock:PCardinal;
szid : array[0..4] of byte;
szIp : string;
begin
szIp:='10.23.5.152';
nResult := EstablishConnect(PChar(szIp),10001,1000,Sock);
case nResult of
0: begin
hSock := sock^;
bOpen := True;
end;
-7:showmessage('Timeout');
-13: ShowMessage('Ip Error');
-14: ShowMessage('socket init error');
end;
if bOpen then
begin
nResult:=SMT_Read_Id_MacNo(hSock,szId);//********
case nResult of
0: ;//ShowMessage(szid[0]);
$07: ShowMessage('length error');
$0b:ShowMessage('ime1 # error');
-6: showmessage('no response');
end;
end;
end;
//********这部分老是返回失败的,我怀疑是返回的SOCK不对.再次谢谢大家.
