News mit Delphi über PHP in eine Website posten

[Zerolith]

Hi,

ich habe sowas gebraucht für ein Austauschprogramm. Habe in Delphi SQL Strings zusammengesetzt und
dann mit nachfolgender Funktion an ein PHP Script geschickt.

Anbei möchte ich noch anmerken dass du das Script sichern solltest. Also z.B. als zusätzlichen Parameter ein Passwort oder sowas.
nur so als Anregung. Da man mit dieser abgespeckten version (wenn man jetzt SQL schickt) ziemlich viel kaputt machen könnte.

ach ja: das ist ein "POST" Befehl -> also bist bist nicht auf 255 Zeichen beschränkt noch dazu bei "GET" musst die leerzeichen mit %20 auffüllen u.ä.


Foldende Unit must noch einbinden: IdHTTP

Delphi-Quellcode:

function Tform1.SendPostData(SQL: wideString; const AtoURL: String): String;
Var
   aStream: TMemoryStream;
   Params: TStringStream;
   AHTTP : TIDHTTP;
begin
   AHTTP := TIDHTTP.Create(nil);
   AHTTP.Port := 80;
   aStream := TMemoryStream.create;
   Params := TStringStream.create('');
   AHTTP.Request.ContentType := 'application/x-www-form-urlencoded';

   try
      Params.WriteString(URLEncode('sql=' + sql ));
      //    Params.WriteString(URLEncode('Parameter2=' + Edit2.text));

      try
         AHTTP.Post(AtoURL,
         Params,
         aStream);
      except
         SendPostData(SQL, AtoUrl);
         exit;
      end;
      aStream.WriteBuffer(#0' ', 1);
      Result := PChar(aStream.Memory);
   except
   end;
   aStream.Free;
   AHTTP.Free;
   Params.Free;
end;

Viel erfolg...
Daniel