Thema: Delphi Webservice

Einzelnen Beitrag anzeigen

Elrond

Registriert seit: 29. Sep 2014
71 Beiträge
 
#57

AW: Webservice

  Alt 7. Mai 2018, 11:08
Schnell zusammen gebastelt und es klappt auch:
Siehe dazu:
http://docwiki.embarcadero.com/CodeE...TP_Get_(Delphi)
https://www.delphipraxis.net/184029-...en-fehler.html

Code:
procedure TForm1.FormCreate(Sender: TObject);
var
  HTTP: TIdHTTP;
  Body: TStringList;
  Response: String;
  IdLogDebug: TIdLogDebug;
  Stream: TMemoryStream;
begin
  try
    IdLogDebug := TIdLogDebug.Create;
    IdLogDebug.Active := true;
    Stream := TMemoryStream.Create;
    HTTP := TIdHTTP.Create;

    HTTP.Request.ContentType := 'application/soap+xml;charset=UTF-8';

    HTTP.Request.AcceptEncoding := 'gzip,deflate';
    HTTP.Intercept := IdLogDebug;
    Body := TStringList.Create;
    Body.Add('<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:blz="http://thomas-bayer.com/blz/">');
    Body.Add('<soap:Header/>');
    Body.Add('<soap:Body>');
    Body.Add('<blz:getBank>');
    Body.Add('<blz:blz>50010517</blz:blz>');
    Body.Add('</blz:getBank>');
    Body.Add('</soap:Body>');
    Body.Add('</soap:Envelope>');
    Body.SaveToStream(Stream);

    Response := HTTP.Post('http://thomas-bayer.com/axis2/services/BLZService', Stream);

    HTTP.Destroy;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end;
PS: Das Schnipsel sollte man nicht 1 zu 1 übernehmen, ich bin mir recht sicher das hier einiges nicht korrekt freigegeben wird, ganz zu schweigen vom style.

Geändert von Elrond ( 7. Mai 2018 um 11:12 Uhr)
  Mit Zitat antworten Zitat