Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как реализовать на сокетах код ПХП в дельфи [D7, WinXP]

ziArt © (2009-07-04 01:26:00)
Как реализовать

function getdata($sn,$pin)
{
$fp = @fsockopen("scheck.vstup.info", 80, $errno, $errstr, 2);
if (!$fp) {
$s="CONNE";
return $s;
} else {
$out = "GET /?exam_sn=$sn&exam_pin=$pin HTTP/1.1\r\n";
$out .= "Host: scheck.vstup.info\r\n";
$out .= "Connection: Close\r\n\r\n";
fwrite($fp, $out);
for($i=1;$i

ziArt (2009-07-05 16:49:00) [1]
все заработало после того как в
TClientSocket

поставил
ClientType -> ctNonBlocking

огромное спасибо за помощь.

ziArt (2009-07-05 16:19:00) [2]
Что вообще ничего не возвращает, хоть бы ерор какой, может я чего не правильно делаю

Rouse_ (2009-07-04 12:20:00) [3]
'GET /?exam_sn=0143165&exam_pin=7084 HTTP/1.1' + sLineBreak + 'Host: scheck.vstup.info' + sLineBreak + 'Connection: Close' + sLineBreak + sLineBreak

ziArt (2009-07-04 02:59:00) [4]
Skt: TClientSocket;
.......

procedure TfEditZava.Button3Click(Sender: TObject);
begin
Skt.Host := 'scheck.vstup.info';
Skt.Port := 80;
Skt.Open;

end;

procedure TfEditZava.SktRead(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Text := Memo1.Lines.Text + Socket.ReceiveText;

end;
procedure TfEditZava.SktWrite(Sender: TObject; Socket: TCustomWinSocket);
begin
Socket.SendText('GET /?exam_sn=0143165&exam_pin=7084 HTTP/1.1');
end;

вот как-то так у меня

Rouse_ (2009-07-04 02:06:00) [5]
Теоретически, после фразы "но вот на запрос ничего не присылает", вопрошающий показывает код. А пока что ответ примерно таков - у тебя ошибка в коде.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »