Image in Blob field (Web-Application)

[Ykcim]

Leider konnte ich Deinen Code nicht adaptieren. Obwohl die Autovervollständigung es angibt, meckert der Compiler bei BF.LoadFromStream(TS); In TMS Web Core scheint es nicht verfügbar zu sein... oder ich begreife nicht, wie ich es korrekt aufrufen muss!

Ich habe das Feld mal in ein LongBlob umgewandelt. Ich kann Daten zwar reinspeichern, aber die sehen dann wieder komisch aus:

Delphi-Quellcode:

ëÞzãnçnûßN
ã¾»è^5ã^5ã^ç~yëÎ9çž»ã^5ã^uè5ã^5ãn¼ã~5çÞ5ã^5ãŽ:ïž:玄ã^5ã^»ã^9è.9ç^zçmøçÎùß]ýãm÷ëÎz箸ëmöë�üßžøïž¹è>ã®8ï^�ßMøï}ôçnyç®<ã®7èNõç¾6ã^}çž{ëŽyà^øà¶ã~…ßž5à5àwçn7ï¾Àè]üß¾äüïŽ:ï^»çžyïN9ïŽ|ãÞvã^7ëÞ ãnußN�ëÎtënƒß�ûß�÷Ø^{ßnùë~ƒã^·ß^}ï®ôè=ùß݅ﮄß~<èNƒï¾¹ç~¹ë}…çÝ�ë]�ß}õß¾öçιë^ß^Ø^ØýçŽùàM÷ç¾:ä5ãnyß^uß^zà>}ã]�ãn‚çž6ç®8ëŽ�ç~}ãž�ç~zãnyã~@ãn‚à ã�ùäýà>�à=è^7ïMôà^:ìzë^ï~¹àN;ãÞýçž‚ãžvà5ë®|ï�…ï¾@ïÎ@ã}ùãnºçž5ë^8ën=ãÞõç}…ïÎ÷ïž�ßÞwß®5è^ èõï^7ãÎõèN
à½ãnë^ßÎù㾺ë}…à>6ã�ýß½�ß®ï^6ë¾öì8àuè÷à>:ï½øë^çn{ç¾zãžÀç^¸Ø�ëÞýØ:ëŽüà^wãÎßÞ=à^6èMúï�úà.…ã^7ç~7ßž9ëÎ}뎽ëŽøè]ôïÎç½õïκïÞ:ã}÷ã΅ߎ7è.=è»è.uç®9ëÞwãŽ=àNõë¾9è^xè^;ëŽ
àøïÎuãÞ·è
ïÝúã® ç®6ëÍ�ßMûßÍ…ß¾úØ^øã^
ç^�ïÍüãn�ãnƒç^:ë~ïNô玂ë®üßNºïNtßηçž|ë�÷ãÍõë~»ãλãn�è9è;ëÞ7ën„ߎ„ç^=ã¾�ã¾úè.ºçn|ãÞ½ã޶㞂ßNøà^„è^Ø^èN{è-öï^çž6à^¸è>|ßÎ=Ø]÷àMö㎄èøßN…àúßN5çNyç®zç®vëÎôã^‚ãn@ïŽôà÷ï¾õß^
çN8Ø^zß¾yç~ºè=öØ^7ëÝúïž|çÞØ^¹ë®·ëÞ·ï®üà‚ïNµçžûè>üç¾�ïNyß¾;ëÞ6ãÍ÷ç^xë^…ç^€è
ôçžwç¾¹à-õçn»ß�ùçÞúà>|ï*öç^öë¾zã¾yãÍ�ãn÷ïÍýën€çÞ

Ist das zu gebrauchen, sodass ich beim Laden nur eine Umformatierung vornehmen muss oder ist das Murks? Wie würdest Du denn Images und später auch pdf-Dokumente speichern? Ich arbeite da jetzt schon eine geschlagene Woche dran...

Vielen Dank für Deine Unterstützung!
Patrick

[TiGü]

Löse dich von dem Gedanken, dass man textuelle Informationen ins Blobfeld speichert oder das als Text angucken kann/sollte.
In Blobfeld kommen wirklich nur die reinen "Bits und Bytes".

[Delphi.Narium]

Zitat von Ykcim:

Leider konnte ich Deinen Code nicht adaptieren. Obwohl die Autovervollständigung es angibt, meckert der Compiler bei BF.LoadFromStream(TS); In TMS Web Core scheint es nicht verfügbar zu sein... oder ich begreife nicht, wie ich es korrekt aufrufen muss!

Für TBlobField muss Data.DB ins Uses, das hat nix mit TMS ... zu tuen, das ist reines Delphi und Datenbank.
Wenn der Compiler meckert: Bitte die Meldung des Compilers posten, sonst wissen wir nur, dass er meckert, aber nicht was er bemeckert. Damit ist eine verwertbare Hilfe fast ausgeschlossen.

Weiter oben hast Du eine Speicherfunktion gepostet. Die hab' ich mal verändert.

Delphi-Quellcode:

function TDataModule_Client.Save_NewLogo(Logo_string: string): boolean;
var
  sl : TStringList;
begin
  Result := Length(Logo_string) > 0;
  if Result then begin
    sl := TStringList.Create;
    sl.Add(Logo_string);
    sl.SaveToFile('Logo_string.txt');
    sl.Free;
  end;
end;

Die Datei Logo_string.txt hängst Du bitte hier an, damit wir erstmal schauen können, was wir denn da bekommen. (Dabei gehe ich jetzt erstmal davon aus, dass in logo_string tatsächlich ein reiner String ist und nicht eventuell ein String für irgendwas binäres "verschlissen" wird.)

Kannst Du den Inhalt des Blobfeldes in eine Datei speichern? Wenn ja, mach' das bitte und häng' die Datei auch hier an.

MySQL / MariaDB scheinen sowas in der Art zu unterstützen:

SQL-Code:

SELECT
  blobfield,
  CONVERT(blobfield USING utf16),
  CONVERT(CONVERT(blobfield USING utf16), BINARY),
  CAST(blobfield  AS CHAR(10000) CHARACTER SET utf16),
  CAST(CAST(blobfield  AS CHAR(10000) CHARACTER SET utf16) AS BINARY)
from tabelle where company_id = 1

Bekommst Du eventuell damit irgendwas verwertbares zu Gesicht, dass Du dann beim Lesen aus der DB nutzen kannst?

Schau bitte mal, ob die hier https://stackoverflow.com/questions/...-text-in-mysql was für Dich verwertbares dabei haben.

Habe halt nur Delphi 7, kein TMS und keine MariaDB, von daher ist das mit dem Selbstausprobieren bei mir eher schlecht bestellt

[Ykcim]

Hallo,

vielen Dank für Deine Mühe, ich versuche alles zu beantworten.

Zitat:

Für TBlobField muss Data.DB ins Uses, das hat nix mit TMS ... zu tuen, das ist reines Delphi und Datenbank.

Die Unit habe ich mit eingebunden, daran liegt es nicht.

Zitat:

Wenn der Compiler meckert: Bitte die Meldung des Compilers posten,

Sorry, mein Fehler!
[Fataler Fehler] identifier not found "LoadFromStream"

Zitat:

Die Datei Logo_string.txt hängst Du bitte hier an,

Ich habe mir letzte Woche bereits den String in einem Memo jedes Mal anzeigen lassen. Ich kann bestätigen, dass das der Wert ist, der in der DB gespeichert wird, wenn ich ein VARCHAR Feld definiere.

ich habe mit der folgenden Funktion den String gespeichert:

Delphi-Quellcode:

function TDataModule_Client.Save_NewLogo(Logo_string: string): boolean;
begin
   Try
      if DataSet_NewLogo.State=dsBrowse then
         DataModule_Client.DataSet_NewLogo.Insert;
      DataSet_NewLogo.FieldByName('company_id').AsInteger:=DataSet_NewCompany.FieldByName('company_id').AsInteger;
      if Logo_string<>'' then begin
         DataSet_NewLogo.FieldByName('logo_image').AsString:=Logo_string;  //Ergebnis in Datei Logo_LongBlob
         DataSet_NewLogo.FieldByName('logo_string').AsString:=Logo_string; //Ergebnis in Datei Logo_LongText
         DataSet_NewLogo.FieldByName('logo_char').AsString:=Logo_string;   //Ergebnis in Datei Logo_StringField
      end;
      DataSet_NewLogo.Post;
      DataSet_NewLogo.ApplyUpdates;
      Result:= true;
   Except
      Result:= false;
   End;
end;

Ich habe die 3 Dateien mit gepostet und auch das Logo. Bei Blob oder Longtext kommt nur Murks. Im StringField wird der gleiche Wert, wie er im Memo angezeigt wird, gespeichert. Diesen Wert kann ich dann auch nutzen und das Image wieder korrekt darstellen zu können.

Zitat:

Bekommst Du eventuell damit irgendwas verwertbares zu Gesicht, dass Du dann beim Lesen aus der DB nutzen kannst?

Bis jetzt leider nicht, weil ich nur noch Murks in den Feldern habe... (Außer im VARCHAR-Feld)...

Zitat:

Löse dich von dem Gedanken, dass man textuelle Informationen ins Blobfeld speichert oder das als Text angucken kann/sollte.
In Blobfeld kommen wirklich nur die reinen "Bits und Bytes".

Ich kann verstehen, dass Text nicht die richtige Speicherung für Dateien ist. Ich bin auch nicht versessen darauf, es so zu machen, ich suche nur irgendeine Möglichkeit, die funktioniert.

Vielen Dank für die Unterstützung!
Patrick

[Delphi.Narium]

Ehrlich gesagt verstehe ich nicht mehr, wo da der Hund noch begraben sein könnte.

TBlobField hat die Methode CreateBlobStream.

TBlobField
Da steht, was das Teil kann. Unten stehen weitere Möglichkeiten, sowas wie TSQLBlobStream, TMemoField.

Seiten, die zum Thema beitragen könnten:
https://www.thoughtco.com/storing-re...-field-1057717
http://docwiki.embarcadero.com/CodeE...y.Blobs_Sample
(Das ist die Beschreibung eines Beispieles für FireDAC und Blobs, das bei Delphi dabei sein müsste.)

Sorry, aber mit wirklich hilfreichen Infos kann ich wohl nicht mehr dienen.

[Ykcim]

Vielen Dank, Du hast Dir wirklich viel Mühe gegeben!

Wenn ich noch zu einer Lösung komme, werde ich sie hier posten...

[Ykcim]

Hallo zusammen,

endlich habe ich einen Weg gefunden, um ein Logo in der Datenbank zu speichern und auch wieder zu laden...

Ich habe meine App komplett auf den Aufruf von Services umgebaut.

Wenn ich das Logo in das TWebImageControl geladen habe, kann ich es jederzeit mit WebImageControl1.Base64 als String bekommen. Ich habe festgestellt, dass ich diesen String zwar problemlos in ein DataSet laden kann, bei dem Versuch, daraus dann ein JSONObject zu machen, wird der String irgendwie verändert.

Ich habe daher selber ein JSONObject erstellt und dieses dem Service-Aufruf als Parameter mitgegeben. Damit funktioniert es.

Delphi-Quellcode:

procedure TDataModule_Client.Save_NewLogo(AOnDataRecieved: TDataRecievedCallback; Image_String: string);
   procedure OnResponse(Response: TXDataClientResponse);
   begin
      if Assigned(AOnDataRecieved) then begin
         AOnDataRecieved();
      end;
   end;

var   JSVal: JSValue;
      JSObj: TJSObject;
      JSString:string;
begin
   Try
      JSString:= '{"company_id": '+IntToStr(DataSet_NewCompanycompany_id.AsInteger)+', '+
                 '"picture": "'+'data:image/png;base64,'+Image_String+'"}';
      JSObj:=TJSJSON.parseObject(JSString);
      TVc_XDataWebClient.RawInvoke('ITV_CreateNewCustService.Insert_Logo',[JSObj], @OnResponse);
   Except
      MessageDlg('Es hat einen Fehler beim Speichern gegeben',WEBLib.Dialogs.mtError, [mbOK]);
      Exit;
   End;
end;

Auf der Server-Seite passiert Folgendes:

Delphi-Quellcode:

function TTV_CreateNewCustService.Insert_Logo(JSObj: TJSONObject): integer;
var   Query: TFDQuery;
begin
   Query:= TFDQuery.Create(nil);
   Query.Connection:=MySQL.MySQL_Cnnctn;
   Try
      Query.SQL.Clear;
      Query.SQL.Add('insert into company_logo '+
                                       '(company_id, logo_image) '+
                                  'values '+
                                       '(:company_id, :logo_image); '+
                                  'select last_insert_id() as ID ');
      Query.ParamByName('company_id').AsInteger:=  StrToIntDef(TJSONString(JSObj.GetValue('company_id')).Value, 0);
      Query.ParamByName('logo_image').AsString:=   TJSONString(JSObj.GetValue('picture')).Value;

      Query.Open;
      Result:= Query.FieldByName('id').AsInteger;
   Finally
      Query.Free;
   End;
end;

Auslesen tue ich es mit einem normalen Select und behandle das Ganze wie einen String.

Vielleicht hilft es jemandem weiter.

Vielen Dank für die Unterstützung
Patrick