Запрос на сервер по html

[Bibmaster]

Доброго времени суток! Искал по форуму не нашел,может кто подскажет, как в Lazarus в форме,сделать кнопочку, при нажатии на которую будет передаваться запрос на сервер методом get , например строка запроса http://someserver.ru/index.php?account=123456. После передачи запроса необходимо отловить ответ сервера выдаваемой в переменной, допустим ERROR=1, тогда появится алерт, что неверный аккаунт, если ERROR =0 ,выполняются дальнейшие действия...Помогите плиз!

[Odyssey]

Вам нужен Ararat Synapse, а именно модуль httpsend.

[Bibmaster]

Вам нужен Ararat Synapse, а именно модуль httpsend.

А как файлы туда добавлять? зашел на сайт, никакой вразумительной информации по этому поводу нет(

[Kitayets]

А чего не взять какой нибудь Tsocket и сделать всё по честному?

Хороший пакет fcl-net там точно есть то что нужно.

в этом пакете есть юнит HTTPClient, название которого намекает что это, что ты ищешь.
правда есть проблема - полное отсутствие документации...

Добавлено спустя 31 минуту 8 секунд:
Хотя посмотрел этот HttpCLient мутный какой-то, нифига не понятно как его использовать.

[perlpunk]

ExecuteProcess/Tprocess + утилита curl (unix way )

[leo_bsv]

Пишу практически то же самое с использованием Ararat Synapse, только метод у меня POST, вот мой работающий код:

Код: Выделить всё

procedure TMainForm.Button1Click(Sender: TObject);
var d: TStringStream;
    s:string;
begin
with THTTPSend.Create do
  begin
    MimeType:='application/x-www-form-urlencoded; charset=windows-1251';
    d:=TStringStream.Create('');
    s:= 'action='+eAction.Text+
        '&login='+utf8tocp1251(eLogin.Text)+
        '&pwd='+utf8tocp1251(ePass.Text)+
        '&param1='+utf8tocp1251(eParam1.Text)+
        '&param1='+utf8tocp1251(eParam2.Text);
    Document.LoadFromStream(d);
    Document.Write(PAnsiChar(s)^, Length(s));//записали строку
    if HTTPMethod('POST',Edit1.Text) then begin
      Document.SaveToStream(d);
      Memo2.Text:=cp1251toutf8(d.DataString);
    end;
  end;
end;


Пишу под линукс, обращаюсь на сайт с базой в 1251, поэтому используется utf8tocp1251...
С GET-методом всё почти так же... параметры и их назначение можно посмотреть в исходниках HTTPMethod.
Вразумительной документации нет, но исходников в сети полно...

[Odyssey]

А как файлы туда добавлять?

Зависит от того, куда добавлять, и какие файлы.

[leo_bsv]

Вот вам ссылка в догонку: прочитай меня