Bilddatei aus dem MySQL Blobdfeld laden geht nicht

[Sir Rufo]

Also dieses Thema ist mehrfach hier und anderswo behandelt worden.

Und das das so nicht funktionieren kann, sieht man schon beim Blick in die Dokumentation (wird aber meistens überbewertet) allerdings auch die Namensgebung LoadFromStream sollte doch alle Glocken läuten lassen, dass das wohl nur mit einem Stream funktioniert.

[Perlsau]

Delphi-Quellcode:

// ----- Lädt eine Datei in ein Blob-Feld
Function TDatMod.DateiInBlobFeld(Feld: TField; Datei: String): Boolean;
Var
  S     : TStream;
  FileS : TFileStream;

begin
  Result := False;
  If Not FileExists(Datei) Then Exit;
  If Not Feld.IsBlob       Then Exit;
  If Not ((Feld.DataSet.State = dsInsert) Or
          (Feld.DataSet.State = dsEdit)) Then Exit;

  S := Feld.DataSet.CreateBlobStream(Feld, bmReadWrite);

  Try
    Try
      FileS  := TFileStream.Create(Datei, fmOpenRead);
      S.CopyFrom(FileS, FileS.Size);
      Result := True;
    Except
      on e:exception Do GL.FehlerMeldung := e.Message;
    End;
  Finally
    FileS.Free;
    S.Free;
  End;
end;

// ----- Speichert den Inhalt eines Blob-Feldes in einer Datei
Function TDatMod.BlobFeldInDatei(Feld: TField; Datei: String): Boolean;
Var
  S     : TStream;
  FileS : TFileStream;

begin
  Result := False;
  If Not Feld.IsBlob Then Exit;
  If Feld.IsNull     Then EXIT;

  S     := Feld.DataSet.CreateBlobStream(Feld, bmRead);
  FileS := TFileStream.Create(Datei, fmCreate);
  Try
    Try
      FileS.CopyFrom(S, S.Size);
      Result := FileExists(Datei);
    Except
      on e:exception Do
      Begin
        GL.FehlerMeldung := e.Message;
        Result := False;
      End;
    End;
  Finally
    S.Free;
    FileS.Free;
  End;
end;

// ----- Übergibt den Inhalt eines Streams an ein Blobfeld
Function TDatMod.StreamInBlobFeld(Strom: TMemoryStream; Feld: TField): Boolean;
Var
  S : TStream;

begin
  Result := False;
  If Not Feld.IsBlob Then Exit;
  If Not ((Feld.DataSet.State = dsInsert) Or
          (Feld.DataSet.State = dsEdit)) Then Exit;

  S := Feld.DataSet.CreateBlobStream(Feld, bmReadWrite);

  Try
    S.CopyFrom(Strom,Strom.Size);
    Result := True;
  Finally
    S.Free;
  End;
end;

// ----- Übergibt den Inhalt eines Blobfelds an Strom
Function TDatMod.BlobFeldInStream(Strom: TMemoryStream; Feld: TField): Boolean;
Var
   S : TStream;

begin
   Result := False;
   If Not Feld.IsBlob Then Exit;
   If Feld.IsNull     Then Exit;

   Try
     S := Feld.DataSet.CreateBlobStream(Feld, bmRead);
     Strom.Clear;
     Strom.CopyFrom(S,S.Size);
     Result := True;
   Finally
     S.Free;
   End;
end;

// ----- Übergibt den Inhalt eines Blobfelds an ein TBitMap
Function TDatMod.BlobFeldInImage(Feld: TField; Bild: TBitMap): Boolean;
Var
  S     : TStream;
  JBild : TJpegImage;

begin
  Result := False;
   If Not Feld.IsBlob Then Exit;
   If Feld.IsNull     Then Exit;

  JBild := TJPegImage.Create;
  S     := Feld.DataSet.CreateBlobStream(Feld, bmRead);

  Try
    JBild.LoadFromStream(S);
    Bild.Assign(JBild);
    Result := True;

  Finally
    If Not Result Then
       GL.FehlerMeldung := 'Fehler beim Speichern eines Blobfelds in ein Bitmap';
    S.Free;
    JBild.Free;
  End;
end;

// ----- Übergibt den Inhalt eines BitMaps an ein Blobfeld
Function TDatMod.ImageInBlobFeld(Feld: TField; Bild: TBitMap): Boolean;
Var
  S     : TStream;
  JBild : TJpegImage;

begin
  Result := False;
  If Not Feld.IsBlob Then Exit;
  If Not ((Feld.DataSet.State = dsInsert) Or
          (Feld.DataSet.State = dsEdit)) Then Exit;

  JBild := TJPegImage.Create;
  S     := Feld.DataSet.CreateBlobStream(Feld, bmWrite);

  Try
    JBild.Assign(Bild);
    JBild.CompressionQuality := 100;
    JBild.Compress;
    JBild.SaveToStream(S);
    S.Position := 0;
    Result := True;
  Finally
    If Not Result Then
       GL.FehlerMeldung := 'Fehler beim Speichern eines Bitmap in ein Blobfeld';
    S.Free;
    JBild.Free;
  End;
end;

Diese Methoden funktionieren bei mir mit allen gängigen Datenbanken: Firebird, MySQL, MsSQL, PostGreSQL ... wobei GL.Fehlermeldung eine ClassVar in meiner Tools-Klasse darstellt, was aber für die eigentliche Funktionalität der obigen Methoden keine wichtige Rolle spielt.