procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TBytes;
ABinding: TIdSocketHandle);
var temp : array[0..2] of byte;
Jpg : TJpegImage;
ct,CapX,CapY: integer;
bmp: TBitmap;
stream:TMemoryStream;
str:string;
bit:TBitmap;
begin
stream:=TMemoryStream.Create;
//bit:=TBitmap.Create;
WriteTIdBytesToStream(stream,AData);
if stream.Size >0 then begin
stream.Position:=0;
stream.ReadBuffer(temp,3);
ct:=temp[0];
capx:=(ct mod 8)*Dw;
capy:=(ct div 8)*DH;
if ct<=63 then with ShowJpg[ct] do begin
LoadFromStream(stream);
DIBNeeded;
//bit.Assign(ShowJpg[ct]);
//showjpg[ct].
//BitBlt(Image1.Canvas.Handle,capx,capy,capx+DW,capy+DH,bit.Canvas.Handle,0,0,SRCCOPY);
Image1.Canvas.StretchDraw(rect(capx,capy,capx+dw,capy+dh),bit);
end;
end;
//Str:='OK I Received !'; //需要通知客戶端已經接收到了，
//ABinding.SendTo(ABinding.PeerIP,ABinding.PeerPort,ToBytes(str));
//memo1.Lines.Add('ipServerUserData ==> len:' + IntToStr(stream.Size));
stream.Free;
//bit.Free;
end;
怎么可以讓它畫圖的速度更快，，或者用DSPARK能不能讀取圖片或流，求方法
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/116043.html
標籤：網絡通信/分布式開發