JPG im Blob Feld wird extrem groß

[mkinzler]

Delphi-Quellcode:

Es fehlen einige begin und end

procedure TForm2.btnLoadClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  if sdBlob.Execute then
  begin //  <-
    BlobStream := nil;
    FileStream := TFileStream.Create(sdBlob.FileName,fmCreate);
    begin
      Form1.clientdataset1.Edit;
      try
        BlobStream :=     Form1.clientdataset1.CreateBlobStream(Form1.clientdataset1.FieldByName('Arbeitsvertragimg')AS TBlobField, bmWrite );
        FileStream.CopyFrom(BlobStream,BlobStream.Size-BlobStream.Position);
        Form1.clientdataset1.Post;
      finally
        BlobStream.Free; // hier ist der hinweis
        FileStream.Free;
      end; // <-
      Form1.clientdataset1.Post;
      tPhotoAlbumAfterScroll (Form1.clientdataset1)
    end;
   end; // <- 
  end;
end;