admin 管理员组

文章数量: 1184232


2024年3月12日发(作者：js的queryselector)

unit Unit_SocketDll;

interface

uses Dialogs,SysUtils,classes,Windows,Forms,stdctrls, scktcomp;

function ClientServerSocketDll(StrHostName:PChar; i_PortNo:integer; StrMsg:String; Var

ResultStr:PChar):Boolean;export;

implementation

function ClientServerSocketDll(StrHostName:PChar; i_PortNo:integer; StrMsg:String; Var

ResultStr:PChar):Boolean;

var ClientSocket1:TClientSocket;

Stream : TWinSocketStream;

Buffer : array[0 .. 1000] of Char;

Str:string;

begin

try

ClientSocket1:=(nil);

s:=StrHostName;

:=i_PortNo;

Type:=ctBlocking;

(StrHostName,StrHostName,'',i_PortNo,true);

Stream:=(TCustomWinSocket(),6000);

if (ted<>true) then

begin

Result:=False;

Exit;

end;

xt(Trim(StrMsg)+#10#13);

if (rData(120000)<>true) then

begin

Result:=False;

MessageBox(,'发送数据包到服务器发生超时错误!','超时错误

',MB_OK+MB_ICONERROR);

Exit;

end;

if ((buffer,1000)=0) then

begin

Result:=False;

MessageBox(,'Socket通迅包发生从服务器获取数据的错误！

','无法获取数据',MB_OK+MB_ICONERROR);

Exit;

end;

Str:=copy(Buffer,1,length(buffer));

Result:=True;

ResultStr:=PChar(Str);

Except

;

;

MessageBox(,'Socket通迅发生了异常，请检查网络连接是否正常！

','Socket异常',MB_OK+MB_ICONERROR);

Result:=False;

end;

end;

udpserver,udpclient 用delphi7 7封装在dll 里，出现的问题

library ZHPRReadCard;

uses

SysUtils,

IdBaseComponent,

IdComponent,

IdUDPBase,

IdUDPServer,

IdUDPClient,

System,

IdSocketHandle,

Dialogs,

Windows,

Messages,

Classes;

type

TClientClass = class


本文标签： 服务器 发生 网络连接 问题 检查

版权声明：本文标题：delphisocketdll 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1710186085a561430.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。