HTTP.Post nie działa

[pioncz]

Witam,
Mam taki skrypt:

procedure TForm1.Button2Click(Sender: TObject);

var

  StreamIn, StreamOut : TStringStream;

begin

  HTTP.Host := '4programmers.net';

  StreamIn := TStringStream.Create('');

  StreamOut := TStringStream.Create('');



  try

  StreamIn.WriteString(Format('notatka=%s&login=%s', [memo1.Text, login.Text]));

  HTTP.Post('http://mojastrona.tak/index.php', StreamIn, StreamOut);

  StatusBar1.simpletext := StreamOut.DataString;

  finally

  StreamIn.Free;

  StreamOut.Free;

  end;

end;

Czyli tak... skrypcik pobiera notatkę z memo1 i login z pola login.
Wysyła 2 zmienne, notatka i login metodą post. Zmienia status bar na to co otrzyma.
Niestety coś jest nie tak. Skrypt php w każdym przypadku wypisuje cokolwiek a tutaj nic nie pisze tylko czysci Statusbar1... jakby wogóle nie wysyłał. W późniejszej wersji bym dodał jeszcze żeby przy wysyłaniu dodawał hasło ale to kiedy indziej

________
Może znacie inne sposoby na zmienienie 1 rzeczy w bazie danych? dbExpress wywala mi błąd że nie moża załadować libmysql.dll. Mam ten plik w Shared../DBExpress
ale nie wiem czy mam dobry plik. Może ktoś powie co i jak z tym mam źle lub z poprzednim? Plz to jest bardzo ważne.

 

[dzordz]

Ehh,
statusbar1.items[0].text := itustring;


Sam nie wiem dlaczego tak się dzieje że simpletext nie można zmienić program podczas działania.

p.s
tylko musisz stworzyć itema w statusbarze

 

[pioncz]

Nie chodzi tu o to, że status bar nie działa tylko o post

status bar przez simple text w trakcie programu bez problemowo zmienia się (sprawdzałem!)

 

[Kornik52]

HTTP.Host := '4programmers.net';

na

HTTP.Host := 'http://www.4programmers.net';

i

HTTP.Post('http://mojastrona.tak/index.php', StreamIn, StreamOut);

to tez powinno być wysyłane w takim wypadku na 4programmers.net na taki sam host..

 

[pioncz]

Dalej nic... przepraszam że tak długo.
Na formie jest memo1 i button... pokazuje message z pustym komunikatem

procedure TForm1.Button1Click(Sender: TObject);

var

  StreamIn, StreamOut : TStringStream;

begin

  HTTP.Host := 'http://pioncz.com/';

  StreamIn := TStringStream.Create('');

  StreamOut := TStringStream.Create('');



  try

  StreamIn.WriteString('lol='+memo1.Text);

  HTTP.Post('http://pioncz.com/notatka/2.php', StreamIn, StreamOut);

  showmessage(StreamOut.DataString);

  except

  showmessage('no niemoglem');

  end;

end;

I teraz wyjawię kod php (taki jak na serwie):

<?

if($_POST['lol'])

if ($_POST['lol'] == '1l'){

print 'faktycznie 1l';

}

else

{

print 'moze nie';

}



?>