kostenloser Webspace werbefrei: lima-city

Post-Übermittlung in Delphi (EditBox->Server)

lima-city → Forum → Programmiersprachen → Delphi & Pascal

1. Autor dieses Themas

   k*********2

   5:53, 21.5.2005

   Folgendes Problem habe ich derzeit in Delphi. Und zwar m?chte ich aus (Beispielangaben) Form1 die Memo1 (ist nen mehrzeiliger editierbarer Textbereich) per POST Methode an die (Demo-)URL demo.de/send.php senden. Man k?nnte es ja eigentlich in die URL setzen, aber ab ner bestimmten Gr??e bekommt man da auch Probleme. Daher m?chte ich dies per Post senden. Ich geb euch mal nen gek?rzten Auszug aus dem Formularscript:
   
   
   ----------------------------------
   
   unit Unit1;
   
   interface
   
   uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ComCtrls;
   
   type
   TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
   private
   { Private declarations }
   public
   { Public declarations }
   end;
   
   var
   Form1: TForm1;
   
   implementation
   
   {$R *.dfm}
   
   procedure TForm1.Button1Click(Sender: TObject);
   begin
   // Hier beginnt der Script, der das Feld Form1.Memo1.Text per POST versenden soll an die URL demo.de/send.php
   // Allerdings wie?
   end;
   
   ----------------------------------
   Ich finde in Delphi (Habe Version 7) zig Sachen, die mit Internet?bertragungen zu tun haben (aber ?berwiegend mit Datenbank gebunden usw.). Die Sache mit dem Empfangen von Daten habe ich schon lange gel?st. Wer kann mir helfen, oder sagen, welches Element ich brauche, und wie ich es einstellen m?sste? Wenn ihr noch weitere Angaben braucht, fragt mich einfach!
   
   Danke schonmal im Vorraus

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. 0******a

   15:27, 21.5.2005

   Hallo kenny, du wieder Aktiver.
   
   Ist relativ einfach:
   Benutz daf?r einfach ein TClientSocket-Objekt.
   
   Hier bisschen Beispielcode:
   TCSock : TClientSocket;
   TCSock.Port = 80;
   TCSock.Host = "127.0.0.1";
   // ben?tigte Daten wurden festgelegt, jetzt Verbindung aufbauen
   TCSock.Active = true;
   
   Um Die Verbindung abzubauen, setzt du Active wieder auf false.
   Daten senden geht mit TCSock.Socket.SendText().
   
   Du musst also nur den POST-Request aufbauen und dann losschicken.

4. racheengel

   racheengel hat kostenlosen Webspace.

   0:13, 24.5.2005

   
   Hi
   
   Das geht alles viel einfacherer mit den Indy Komponenten (falls nicht voehanden hier vorbeischauen: http://www.indyproject.org ).
   
   Dazu ein kleines mini Tut auf Delphi-Soruce.de:
   
   http://www.dsdt.info/tipps/?id=455
   
   Ist ganz easy. Ich hab das auch ben?tigt, da ich aber extrem zu faul war das selber zu schreiben einfach per Cut n Paste, funzt so wie es soll! Nur ein kleiner Fehler ist da:
   
   Im Beispiel steht
   
   Memo1.Text:=SendPostData(idHttp1,'http://domain/pos t.php',sList);
   
   Darf so nicht sein mu? lauten:
   
   Memo1.Text:=SendPostData(idHttp1,'http://domain/post.php',sList);
   
   Gru? Tobi
   
   
   

   
   
   huhu
   
   von welcher indy version gehst du aus ?
   
   weil die 9er ist gut die 10er hat einige probs *denk
   zumindest bei mir *gr?bel

5. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?