delphi使用ServerSocket做服务端
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
receiveText : string;
i: Integer;
s : TWinSocketStream;
f : TFileStream;
begin
receiveText := Socket.ReceiveText;
Memo1.Lines.Add(receiveText);
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
begin s := TWinSocketStream.Create(ServerSocket1.Socket.Connections[i], 60000);
f := TFileStream.Create('D:\s4.png', fmShareDenyWrite);
Try
s.CopyFrom(f, 0);
Finally
s.Free;
f.Free;
ServerSocket1.Socket.Connections[i].SendText('hello');
ServerSocket1.Socket.Connections[i].Close;
End;
end;
end;客户端是java
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
receiveText : string;
i: Integer;
s : TWinSocketStream;
f : TFileStream;
begin
receiveText := Socket.ReceiveText;
Memo1.Lines.Add(receiveText);
for i:=0 to ServerSocket1.Socket.ActiveConnections-1 do
begin s := TWinSocketStream.Create(ServerSocket1.Socket.Connections[i], 60000);
f := TFileStream.Create('D:\s4.png', fmShareDenyWrite);
Try
s.CopyFrom(f, 0);
Finally
s.Free;
f.Free;
ServerSocket1.Socket.Connections[i].SendText('hello');
ServerSocket1.Socket.Connections[i].Close;
End;
end;
end;客户端是java
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货