Image in Blob field (Web-Application)

[Ykcim]

Hallo Zusammen,

ich versuche gerade meine erste Web-Application zu programmieren und würde mich über Unterstützung sehr freuen!

Ich nutze zwar TMS WebCore aber ich glaube, die Frage hat nicht wirklich etwas damit zu tun...

Ich lade ein Bild in ein Image, speicher das Image in einen Stream und möchte dann den Stream in einem Blob-Feld in dem MySQL-Server speichern. Aber das bekomme ich leider nicht hin. Ich bekomme auch keine Fehlermeldung, es kommt nur nichts in der DB an.

Delphi-Quellcode:

procedure TForm_TVclient_Main.WFP_LogoChange(Sender: TObject);
var   Img_URL: string;
      Image_File: TJSHTMLFile;
      MStream: TMemoryStream;
begin
   if Assigned(WFP_Logo.Files[0]) then begin
      // Load Picture in TWebImageControl
      Image_File:=WFP_Logo.Files.Items[0].FileObject;
      Img_URL:= Application.ObjectURL(Image_File);
      Img_Logo1.URL:= Img_URL;   //Das Bild wird korrekt angezeigt.
      //Upload the Picture to MySQL as Blob
      MStream:= TMemoryStream.Create;
      Try
         MStream.Position:=0;
         Img_Logo1.SaveToJSONStream(MStream);
         MStream.Position:=0;
         DataModule_Client.DataSet_NewLogo.Insert;
         DataModule_Client.DataSet_NewLogo.FieldByName('logo').LoadFromJSONStream(MStream);
         DataModule_Client.DataSet_NewLogo.FieldByName('company_id').AsInteger:=1; //Nur zum Testen
         DataModule_Client.DataSet_NewLogo.FieldByName('logo_id').AsInteger:=1; //Nur zum Testen
         DataModule_Client.DataSet_NewLogo.Post;
      Finally
         MStream.Free;
      End;
   end;
end;

Kann mir jemand einen Tip geben, warum das nicht fliegt?

Vielen Dank
Patrick

[Delphi.Narium]

Warum bei 'nem Bild bitte LoadFromJSONStream?

Bilder im JSON-Format?

Vielleich mal einfach nur 'nen Stream laden?

DataModule_Client.DataSet_NewLogo.FieldByName('logo').LoadFromStream(MStream);

[Ykcim]

Das habe ich auch versucht, aber LoadFromStream kennt er angeblich nicht...

[Delphi.Narium]

Hilft das als Idee? https://www.delphipraxis.net/1366902-post18.html

Ansonsten mal oben rechts bei Suche Blob Image eingeben und durch die Ergebnisse wühlen. Etliche tausend Treffer zum Thema, keine Ahnung welche der dort aufgeführten Lösungen die für Dich passende ist, aber die richtige Lösung ist bestimmt dabei wenn eventuell auch nicht unbedingt auf Anhieb auffindbar .

Weitere Suchbegriffe:

createblobstream
tblobfield

TBlobField(DataModule_Client.DataSet_NewLogo.FieldByName('logo')).SaveToStream(MStream);

[Ykcim]

Vielen Dank.

Sag mal kannst Du mir sagen, was der Unterschied zwischen einem TStream oder TMemoryStream und einen JSONStream ist? Ich bekomme die Dinger leider nicht ausgelesen, damit ich mir die Struktur ansehen kann...

Gruß
Patrick

[hoika]

Hallo,
mit Stream.Size bekommt man immerhin die Größe raus.
Was ist denn Dein TImage für eine Klasse.
Dass es dafür kein SaveToStream gibt, ist schon merkwürdig.

Der SQL-Code von DataSet_NewLogo wäre auch nicht schlecht.