JPG im Blob Feld wird extrem groß

[DeddyH]

Versuch es doch mal so:

Delphi-Quellcode:

procedure TForm2.btnLoadClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  if sdBlob.Execute then
  begin
    clientdataset1.Edit; 
    BlobStream := nil;
    FileStream := TFileStream.Create(sdBlob.FileName,fmCreate);
    try
      BlobStream := clientdataset1.CreateBlobStream(clientdataset1.FieldByName('Arbeitsvertragimg'),bmRead);
      FileStream.CopyFrom(BlobStream,BlobStream.Size-BlobStream.Position);
      clientdataset1.Post; 
      clientdataset1(clientdataset1); 
    finally
      BlobStream.Free;
      FileStream.Free;
    end;
  end;
end;