关于ClientSocket1通信的问题(急!!!!在线等待) (300分)

  • 主题发起人 主题发起人 wxpub
  • 开始时间 开始时间
to wxpub:用字符串可以.
var
JpgBuff:string;
Stream:TmemoryStream;
Len:Integer;
begin
Len:=Length(strCondition);
Stream:= TMemoryStream.Create;
try
Stream.LoadFromFile(filename);
SetLength(JpgBuff,Stream.Size+Len);
Move(strCondition[1],JpgBuff[1],Len);
Move(Stream.Memory^,JpgBuff[Len+1],Stream.Size);
ClientSocket1.Socket.SendText(JpgBuffer);
finally
Stream.Free;
end;
end;

 
多人接受答案了。
 
后退
顶部