Hallo Zusammen,
das konnte ich nun selbst lösen.
So klappt's:
Delphi-Quellcode:
uses Soap.EncdDecd;
procedure SendDocument;
Var ltDocument:
String;
lcStream:TStringStream;
begin
lcStream:=TStringStream.Create;
Try
pcBitmap.SaveToStream(lcStream);
lcStream.Position:=0;
ltDocument:=EncodeBase64(lcStream.Memory,lcStream.Size);
// -> Sende ltDocument an den Webservice
Finally
lcStream.Free;
End;
end;
War wohl die falsche Funktion zum Base64 kodieren.
Noch ein Tip für alle die mit älteren Delphi Versionen:
Ich Kontaktiere den Webservice (nusoap) "zu Fuß", also sende ein
XML mit den WinInet Funktionen und erhalte den Response auch so
wieder zurück.
Um aus den Bilddaten wieder ein PNG zu machen, zuerst UTF8 nach
String dekodieren und danach DecodeBase64 aufrufen.
Grüße
Thomas