1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Procedure TForm1.Play(Cursor : longInt);
Var
i,SizeBegin,ImgSize: longInt;
jpg: tjpegimage;
begin
FSS:=TFIleStream.Create(FichEd.text,fmOpenRead);
MS:=TMemoryStream.create;
jpg:= tjpegimage.Create;
SizeBegin:=0;
For i:=0 to Cursor do
begin
SizeBegin:=SizeBegin+StrToInt(InfoList.Strings[Cursor]);
end;
ImgSize:=StrToInt(InfoList.Strings[Cursor+1]);
Try
FSS.Position:=SizeBegin;
MS.CopyFrom(FSS,ImgSize);
MS.Seek(0,SoFromBeginning);
jpg.LoadFromStream(MS);
Visual.Picture.Bitmap.Assign(jpg);
Finally
jpg.free;
FSS.Free;
MS.Free;
end;
end; |
Partager