Speichern Image als Blob-Field

[jangbu]

Hallo, keine Ahnung was hier falsch ist!?
Ich habe jetzt auch noch das abschließende Zurücksetzen hinzugefügt, ändert aber nichts!

Code:

procedure TForm2.save_blob_to_DB(Sender: TObject);
var MStream: TMemoryStream;
  sql_str : string;
  _rec_cnt : integer;
begin
  MStream := TMemoryStream.Create;
  try
    MSQuery1.Close;
    MSQuery1.SQL.Clear;
    sql_str := 'select * from sign';
    MSQuery1.SQL.Add(sql_str);
    MSQuery1.Open;
    _rec_cnt := MSQuery1.RecordCount;

    MStream.Position := 0;
      Image2.Bitmap.SaveToStream(MStream);
    MStream.Position := 0;

    MSQuery1.Append;

    MSQuery1.FieldByName('ID').AsInteger := _rec_cnt + 1;
    MSQuery1.FieldByName('DateTime').AsDateTime := now;
    TBlobField(MSQuery1.FieldByName('image1')).LoadFromStream(MStream);
    MSQuery1.Post;
    MSQuery1.Close;
  except
    on E: Exception do
    begin
      ShowMessage('Error: ' + E.ClassName + ' ' + E.Message);
    end;
  end;
  MStream.Free;
end;

[Pfaffe]

Muss man bei FMX auch die unit jpeg einbinden ...

[jangbu]

Nein, wenn man eine Komponente verwendet die die Unit jpeg braucht, also z.B. wenn man im OpenPictureDialog nicht nur *.png angezeigt bekommt aber das ist hier nicht der Fall.