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