Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2011.12.04;
Скачать: CL | DM;

Вниз

Как реализовать на сокетах код ПХП в дельфи   Найти похожие ветки 

 
ziArt   (2009-07-04 01:26) [0]

Как реализовать

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<=9;$i++){$s=fgets($fp);}
    $s=fgets($fp);
    fclose($fp);
    return $s;
   }
}

такой код на делфи, я понимаю что через сокет клиент, и даже вроде конектится но вот на запрос ничего не присылает в ответ, или хоть отправте что почитать


 
Rouse_ ©   (2009-07-04 02:06) [1]

Теоретически, после фразы "но вот на запрос ничего не присылает", вопрошающий показывает код. А пока что ответ примерно таков - у тебя ошибка в коде.


 
ziArt   (2009-07-04 02:59) [2]

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 12:20) [3]

"GET /?exam_sn=0143165&exam_pin=7084 HTTP/1.1" + sLineBreak + "Host: scheck.vstup.info" + sLineBreak + "Connection: Close" + sLineBreak + sLineBreak


 
ziArt   (2009-07-05 16:19) [4]

Что вообще ничего не возвращает, хоть бы ерор какой, может я чего не правильно делаю


 
ziArt   (2009-07-05 16:49) [5]

все заработало после того как в
TClientSocket

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

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



Страницы: 1 вся ветка

Текущий архив: 2011.12.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.01 c
15-1313077949
Kolan
2011-08-11 19:52
2011.12.04
Является ли открытый пароль в форме регистрации нарушением закона


15-1312576193
Юрий
2011-08-06 00:29
2011.12.04
С днем рождения ! 6 августа 2011 суббота


1-1274792222
ford
2010-05-25 16:57
2011.12.04
текст из PDF матрица текста


2-1301388555
Максон
2011-03-29 12:49
2011.12.04
Stringgrid


15-1312603294
Мимо не прошел
2011-08-06 08:01
2011.12.04
Свое