datalen:=Socket.ReceiveLength;
mrevStream.Clear;
position:=0;
while position<datalen do
begin
revlen:=Socket.ReceiveBuf(mrevStream,datalen-position);
position:=position+revlen;
end; mMyJpeg:=TJpegImage.Create;
mMyJpeg.LoadFromStream(mrevStream);
Image.Picture.Bitmap.Assign(mMyJpeg);
mMyJpeg.Free;其中:mrevStream:=TMemoryStream.Create;
mrevStream.Clear;
position:=0;
while position<datalen do
begin
revlen:=Socket.ReceiveBuf(mrevStream,datalen-position);
position:=position+revlen;
end; mMyJpeg:=TJpegImage.Create;
mMyJpeg.LoadFromStream(mrevStream);
Image.Picture.Bitmap.Assign(mMyJpeg);
mMyJpeg.Free;其中:mrevStream:=TMemoryStream.Create;
解决方案 »
- 橡皮擦的效果
- Query1.ParamByName['xm'].AsString:= edit1.Text;不行,而改为:Query1.ParamByName('xm').AsString:= edit1.Text;就可以了.
- 关于多线程的!(100分相ZENG,不懂的只管UP吧!人人有份)
- 如何判断临时表是否还在系统中?
- 请问高手们,做帮助用什么工具比较好而且简单?急!!
- DELPHI已连接Oragle
- delphi 2010 ado+datasnap+dbx做c/s
- Delphi如何读取PDF文件内容
- 多层编写时,CS放在一起没有问题,CS分开就无法工作了是什么问题?
- 问一个简单的问题?
- 怎样通过socket传输JPG或者Image ?
- 问题4
mrevStream.Position :=0;