Mit HTTP und SSL zugriff auf einen Webservice über Indy 10

[franktron]

Das ist doch ganz einfach

Delphi-Quellcode:

var
   Stream   : TStream;
   Buffer   : String;
begin
   FQuery.Clear;
   FResponse.Clear;
   FQuery.Add('<?xml version="1.0" encoding="UTF-8"?>');
   FQuery.Add('REST XML');
   Stream:=TMemoryStream.Create;
   try
      FQuery.SaveToStream(Stream);
      Buffer:=FURL+'/'+FKomponente+'/'+FFunktion+'?format=xml';
      Stream.Position:=0;
      try
         FResponse.Text:=FIdHTTP.Post(Buffer,Stream);
      except

      End;
   finally
      Stream.Free;
   End;