FMX Bitmap von Kamera an Webservice senden

[friedt99]

Hallo Rollo62,

nein, es ging um eine Fehlermeldung bei der Base64 Kodierung
der Bitmap unter FMX.

Hatte wohl die falsche Funktion dafür genommen.

Mit der PNG kann ich leben, da ich auf beiden Seiten
des Webservices die Software stelle.

Auf der "Empfangsseite" (Delphi 7) mache ich aus der PNG
ein JPEG und baue ein PDF außen rum.

Grüße

Thomas

[Rollo62]

Zitat von friedt99:

Auf der "Empfangsseite" (Delphi 7) mache ich aus der PNG
ein JPEG und baue ein PDF außen rum.

Dann konvertiere doch gleich im Phone zu JPG, und spar Dir Arbeit auf der Workstation/Server

[Olli73]

Da ich Binärdaten (Bitmap, png, ...) ungern als String behandele, hätte ich es eher so gemacht:

Delphi-Quellcode:

Var ltDocument:String;
    lcStream:TMemoryStream;
    lcStreamB64:TStringStream;
    lcBitmap:TBitmap;
begin
  lcBitmap:=TBitmap.Create;
  lcStream:=TMemoryStream.Create;
  lcStreamB64:=TStringStream.Create;
  Try
    lcBitmap.Width:=100;
    lcBitmap.Height:=100;
    lcBitmap.Canvas.BeginScene;
    lcBitmap.Canvas.Fill.Color:=TAlphaColors.Red;
    lcBitmap.Canvas.FillRect(Rect(0,0,lcBitmap.Width,lcBitmap.height),0,0,AllCorners,1);
    lcBitmap.Canvas.EndScene;

    lcBitmap.SaveToStream(lcStream);
    TNetEncoding.Base64.Encode(lcStream, lcStreamB64);
    ltDocument:=lcStreamB64.DataString;

    --> ltDocument an Webservice senden

  Finally
    lcStream.Free;
    lcStreamB64.Free;
   End;
end;

[HolgerX]

Hmm..

Ein paar Fragen:
Wie kommst Du darauf, dass ein TBitmap ein PNG sei?
Ohne z.B. Konvertierung per TPNGImage wird auch beim Speichen kein PNG daraus...

Wieso wird der Stream nach Bitmap.SaveToStream nicht direkt als Binär-Stream an den Webservice geschickt und stattdessen als aufgeblähter Base64 String?

Wie sendest Du denn die Daten an den WebService?

[friedt99]

Hallo HolgerX,

Wenn man das Bild der CameraComponent einer TBitmap zuweist und dann
die TBitmap mit SaveToFile speichert, kommt ein PNG raus...

Ich sende das Bild als Base64 weil der Webservice unter nusoap (PHP) entwickelt wurde
und ich da keine Möglichkeit gefunden habe, das anders zu lösen.

Grüße

Thomas