kostenloser Webspace werbefrei: lima-city


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

lima-cityForumProgrammiersprachenDelphi & Pascal

  1. Autor dieses Themas

    k*********2

    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

    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. 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?

Über lima-city

Login zum Webhosting ohne Werbung!