Fórum Tadoblobfield - Porque esse código dá erro #243882

var
StreamFig : TADOBlobStream;
StreamFig1 : TADOBlobStream;
JpegImage : TJpegImage;
StreamArq : TFileStream;
BitMap : TBitmap;
begin
StreamFig := TADOBlobStream.Create(dm1.adotable2.FieldByName(´foto1´) as TADOBlobField, bmRead);
StreamFig.SaveToFile(´c:\alixo\arquivo.bmp´);
StreamFig.Seek(78, soFromBeginning);
Jpegimage := Tjpegimage.Create;
BitMap := TBitMap.Create;

BitMap.LoadFromStream(StreamFig);

JPEGImage.Assign(BitMap);
StreamFig1 := TADOBlobStream.Create(dm1.adotable1.FieldByName(´Foto1´) as TBlobField, bmWrite);
JPEGImage.SaveToStream(StreamFig1);

StreamFig.Free;
JPEGImage.Free;
StreamArq.Free;
StreamFig1.Free;
BitMap.Free;

dm1.adotable1.Post;