1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

{ add the used parameters for the script }
    data.AddFormField('username', Edit1.Text);
    data.AddFormField('passwort', Edit2.text);
    data.AddFormField('vorname', Edit3.text);
    data.AddFormField('nachname', Edit4.text);
    data.AddFormField('strasse', Edit5.text);
    data.AddFormField('plz', Edit6.text);
    data.AddFormField('ort', Edit7.text);
    data.AddFormField('gebdatum', Edit8.text);
    data.AddFormField('Email', Edit9.text);
    data.AddFormField('Action', 'Register');




    { Call the Post method of TIdHTTP and read the result into TMemo }
    Memo1.Lines.Text := form1.IdHTTP1.Post('http://www.chiller4fun.de/register.php', data);
   finally
    data.Free;					

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

var Response: String;
begin
    { add the used parameters for the script }
    data.AddFormField('username', Edit1.Text);
    data.AddFormField('passwort', Edit2.text);


    { Call the Post method of TIdHTTP and read the result into Response }
    Response := form1.IdHTTP1.Post('http://www.chiller4fun.de/login.php', data);

    if Response='Erfolgreich Eingelogt' then
      begin
        //was auch immer
      end; 
   finally
     data.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

var
  data: TIdMultiPartFormDataStream;
  var Response: String;
  begin
  data := TIdMultiPartFormDataStream.Create;
  try
    { add the used parameters for the script }
    data.AddFormField('user_login', Edit1.Text);
    data.AddFormField('user_pw', Edit2.text);




    Response := form1.IdHTTP1.Post('http://www.chiller4fun.de/login.php', data);

    if Response='Erfolgreich Eingelogt' then
      begin
        Form2.ShowModal;
      end;
   finally
     data.Free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var
  data: TIdMultiPartFormDataStream;
  var Response: String;
  begin
  data := TIdMultiPartFormDataStream.Create;
  try
    { add the used parameters for the script }
    data.AddFormField('username', Edit1.Text);
    data.AddFormField('passwort', Edit2.text);




    Response := form1.IdHTTP1.Post('http://www.chiller4fun.de/login.php', data);

    if Response='Erfolgreich Eingelogt' then
      begin
        Form2.ShowModal;
      end;
   if Response='Noch Nicht Aktiviert' then
      begin
        ShowMessage('Dein Account wurde noch nicht Aktiviert');
      end;
      if Response='Fehler beim Login' then
      begin
        ShowMessage('Fehler beim Login');
      end;
   finally
     data.Free;					

1:
2:
3:
4:
5:
6:
7:
8:
9:

function MD5Hash(const Input: WideString): string;
begin
  with TIdHashMessageDigest5.Create do
  try
    Result := LowerCase(HashStringAsHex(string(Input)));
  finally
    Free;
  end;
end;