var
jpg:TJPEGImage;
begin
if picsock.Connected = false then begin
with picsock do begin
Host:=Edit1.Text;
connect;
end;
end;
picsock.WriteLn('get');
stream:=TMemoryStream.Create;
picsock.ReadStream(stream);
stream.Position:=0;
jpg:=TJPEGImage.Create;
with jpg do begin
LoadFromStream(stream);
SaveToFile('shot.jpg');
end;
jpg.Free;
__016
{ربى زدنى علما}
إستفد من معالج الحدث :
jpg.OnProgress
لست متأكد تماما أنه سينجح , ولكن أظن انه متعلق بهذه الامور .
عرف إجراء كالتالي :
private procedure jphOnProgress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string);
procedure TForm1.jphOnProgress(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: string); begin // your Progress Event end;
ولاتنسى طبعا :
jpg.OnProgress := jphOnProgress;
هذا الموضوع مغلق.
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…