Login formular in Delphi und per Post an die PHP Datei überg

jackie05 · Beiträge: 357

Hallo,
ich möchte etwas versuchen und zwar, habe ich in Delphi ein Login formular erstellt und wenn ich auf Login klicke, dann sollen die Daten von Edit1 und Edit2 an die login.php übergeben werden.

Da das ganze in PHP über POST ermittelt wird, weiss ich jetzt nicht wie ich die Daten übergeben soll, über idHTTP1.Get geht das nicht, man müsste es schon mit idHTTP1.Post machen.

Eigentlich müsste ich ja erst die einzelnen Daten in idHTTP1.Post füllen und diese dann mit Stream absenden.

z.B. idHTTP1.Post('http://www.deineseite.de/login.php',stream);

Ich weiss leider nicht wie ich das machen soll, ich wäre euch sehr dankbar, wenn ihr mir helfen könntet.
Vielen Dank.

EDIT Hat sich erledigt, ich habe das so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  Strings := TStringList.Create;
  try
    Strings.Add('Loginname=jackie05');
    Strings.Add('Loginpass=Test');
    Strings.Add('act=Login');
    try
    memo1.text := idHTTP1.Post('http://deineseite.de/login.php', Strings);
    except
     on E: Exception do
       showmessage('Error encountered during POST: ' + E.Message);
    end;
  finally
    Strings.Free;
  end;

MfG

jackie05 · Beiträge: 357

Ich habe da noch ein kleines problem und zwar, wenn das Passwort z.B. falsch ist, dann hängt sich mein Programm für eine kurze zeit auf, das hat was mit dem idHTTP1.Post zu tuhen.
Wie kann ich das so machen, wenn
idHTTP1.Post('deineseite.de/login.php, Strings);

eine 0 zurück gibt, damit mein Programm dann nicht hängt?

Ich bedanke mich schonmal.

MfG

dieter1a · Beiträge: 20 XP Pro

jackie05 hat folgendes geschrieben:

EDIT Hat sich erledigt, ich habe das so gelöst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

  Strings := TStringList.Create;
  try
    Strings.Add('Loginname=jackie05');
    Strings.Add('Loginpass=Test');
    Strings.Add('act=Login');
    try
    memo1.text := idHTTP1.Post('http://deineseite.de/login.php', Strings);
    except
     on E: Exception do
       showmessage('Error encountered during POST: ' + E.Message);
    end;
  finally
    Strings.Free;
  end;

MfG

Sorry, wenn ich hier nachfrage.

Ich denke ich habe ein ähnliches Problem mit Delphi.
Ich kriege es nicht geregelt einen String an eine PHP zu schicken und einen Antwort-String zu erhalten.
Habe das bisher mit Director gelöst, was aber nicht das Gelbe vom Ei ist.
Mit obigem Script hast du ja wohl eine Teillösung gefunden.
Ist es von mir vermessen Dich um das komplette Script zu bitten?
Ich möchte mir damit als Anfänger mit Delphi einen Überblick verschaffen.

Ich wäre Dir sehr dankbar.

MfG dieter1a

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme