procedure TfrmDodaj.Button2Click(Sender: TObject);
Var
BlobStream : TBlobStream;
JPegStream : TMemoryStream;
JPEG : TJPEGImage;
begin
If OpenPictureDialog1.Execute then
begin
if dModul.cdsMain.FieldByName('Foto1').IsBlob then
begin
JPegStream := TMemoryStream.Create;
JPegImage.LoadFromFile(OpenPictureDialog1.filename);
JPegImage.SaveToStream(JPegStream);
BlobStream := TBlobStream.Create(TBlobField(dModul.cdsMain.FieldByName('Foto1')),bmReadWrite);
BlobStream.CopyFrom(JPegStream,0);
JPegStream.Free;
BlobStream.Free;
end;
end else ShowMessage('Baza nie jest w trybie edycji');
end;
gdzie jest błąd przy dodaniu jpega wywala błąd "class einvalidcast with message Invalid Cast Typecast i zatrzymuje sie na:
BlobStream := TBlobStream.Create(TBlobField(dModul.cdsMain.FieldByName('Foto1')),bmReadWrite);