procedure TfrmMain.ZapiszBlob(FileName, FieldName: string);
var
blob, myFileStream : TStream;
begin
blob := DataSet.CreateBlobStream(DataSet.FieldByName(FieldName), bmWrite);
try
blob.Seek(0, soFromBeginning);
myFileStream := TFileStream.Create(FileName, fmShareDenyWrite);
try
blob.CopyFrom(myFileStream, myFileStream.Size) ;
finally
myFileStream.Free ;
end;
finally
blob.Free ; <- Tutaj Acces Violation
end;
end;
dlaczego na linijce blob.Free zawsze mam Acces Violation ?
Przeglądałem kilka stron w internecie w we wszystkich przykładach tak właśnie zapisują pliku do pola blob.