JPG im Blob Feld wird extrem groß

[DeddyH]

Das, was zur Laufzeit in der Filename-Eigenschaft dieses Dialogs steht.

[Sherlock]

Calikey, bevor hier einer der Beteiligten einen Herzinfarkt bekommt, oder entnervt aufgibt: Bitte lies Dir das durch: http://www.delphipraxis.net/41047-tu...ortgeschr.html

Ehrlich!

Sherlock

[calikey]

Bin froh das man soviel gedult hat. Ich muss mich erst mal um meine kleine kümmern und lese mir heute abend denn link durch. Ich schreib dann heute abend weiter. Bedanke mich erst mal ganz herzlich bei allen die bis jetzt geholfen haben.

[calikey]

So beim compelieren ist mir eine warnung auf gefallen
[dcc32 Warnung] doku.pas(171): W1036 Variable 'BlobStream' ist möglicherweise nicht initialisiert worden

[himitsu]

nicht initialisiert = nichts zugewiesen

Delphi-Quellcode:

var
  i: Integer;
begin
  if i = 0 then ;  // nicht initialisiert

var
  i: Integer;
begin
  i := 0;
  if i = 0 then ;  // initialisiert

[DeddyH]

Heißt in Deinem Fall: Du greifst anscheinend auf die Variable zu, bevor CreateBlobStream aufgerufen wurde bzw. in bestimmten Fällen kann es sein, dass diese Methode gar nicht aufgerufen wird, Du greifst aber trotzdem auf die Variable zu. Wieso, weshalb, warum, das kannst nur Du wissen, wir kennen den Code ja nicht.

[calikey]

So quellcode
bei BlobStream.Free; meldet er denn hinweis

Delphi-Quellcode:

type
  TForm2 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    odBlob: TOpenDialog;
    sdBlob: TSaveDialog;
    Button3: TButton;
    frxReport1: TfrxReport;
    Photo: TImage;
    
    procedure btnLoadClick(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure tPhotoAlbumAfterScroll(ClientDataSet1: TClientDataSet);

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;


implementation

{$R *.dfm}

uses Unit1, ABOUT;



procedure TForm2.btnLoadClick(Sender: TObject);
var
  FileStream: TFileStream;
  BlobStream: TStream;
begin
  if sdBlob.Execute then
  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;
      Form1.clientdataset1.Post;
      tPhotoAlbumAfterScroll (Form1.clientdataset1)

    end;
  end;
end;

procedure TForm2.Button12Click(Sender: TObject);
begin
frxreport1.showreport;
end;

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

procedure TForm2.FormCreate(Sender: TObject);
begin
Form1.clientdataset1.Open;
end;

procedure TForm2.tPhotoAlbumAfterScroll(ClientDataSet1: TClientDataSet);
var
  JpegImage: TJPEGImage;
  BlobStream: TStream;
begin
  if (not Form1.clientdataset1.FieldByName('Arbeitsvertragimg').IsNull) then
    begin
      BlobStream := Form1.clientdataset1.CreateBlobStream(Form1.clientdataset1.FieldByName('Arbeitsvertragimg'),bmRead);
      JpegImage := TJPEGImage.Create;
      try
        JpegImage.LoadFromStream(BlobStream);
        Photo.Picture.Assign(JpegImage);
        Photo.Visible := True;
      finally
        JpegImage.Free;
        BlobStream.Free;
      end;
    end
  else
    Photo.Visible := False;
end;


END.

[DeddyH]

Zitat:

Delphi-Quellcode:

if sdBlob.Execute then
  BlobStream := nil;

Das heißt, dass BlobStream nur auf nil gesetzt wird, wenn der Benutzer den Dialog bestätigt hat. Der restliche Code wird aber unabhängig davon trotzdem ausgeführt. Damit das nicht geschieht, musst Du den kompletten Code nach der If-Abfrage mit einem begin-end-Block einschließen.

[edit] Kleiner Tipp: drück doch mal STRG+D, damit der Code-Formatter die Einrückungen korrigiert, dann fällt so etwas schon rein optisch auf. [/edit]

[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;

[DeddyH]

Ätsch, schneller :tongue: