TIdTcpClient 連接 IIS... get no response..WHY?! |
|
尚未結案
|
|
hedge
一般會員   發表：4 回覆：10 積分：2 註冊：2004-09-02 發送簡訊給我 |
Dear All... 我因為 TIdhttp 試不出來 所以用 TIdTcpClient 再試試看
但是 IIS 沒有回應....以下是程式的片段~~~
ReadBuffer 沒有辦法讀到資料會 timeout ~~~~ TClientHandleThread = class(TThread)
private
CB: String ;
procedure HandleInput;
protected
procedure Execute; override;
end; procedure TForm1.CBClientActiveClick(Sender: TObject);
begin
if CBClientActive.Checked then
begin
try
Client.Connect(10000); // in Indy < 8.1 leave the parameter away ClientHandleThread := TClientHandleThread.Create(True);
ClientHandleThread.FreeOnTerminate:=True;
ClientHandleThread.Resume;
except
on E: Exception do MessageDlg ('Error while connecting:'+#13+E.Message, mtError, [mbOk], 0);
end;
end
else
begin
ClientHandleThread.Terminate;
Client.Disconnect;
end; ButtonSend.Enabled := Client.Connected;
CBClientActive.Checked := Client.Connected;
end; procedure TForm1.ButtonSendClick(Sender: TObject);
var
senddata,sendbuffer : string ;
datalen : integer ;
begin
senddata := '<?xml version="1.0" encoding="big5" ?> ';
senddata := senddata + '
|
|
hedge
一般會員 發表：4 回覆：10 積分：2 註冊：2004-09-02 發送簡訊給我 |
非常抱歉 以上 sneddata 是一串 XML 格式啦
但是我想應該不是 IIS 沒有回應的原因
至少要回應 XML 錯誤 等 的訊息 以下是 Linux c 的部分 這是可以成功的 case ... Thanks ~~~ //MXL format ----
strcpy(senddata,"<?xml version=\"1.0\" encoding=\"big5\" ?>");
......
......
strcat(senddata,"</body></senddata>\n");
datalen=strlen(senddata);
sprintf(sendbuffer,"%s%s%s %d %s%s",
"POST /test/testx.asp HTTP/1.0\n",
"HOST: 111.22.33.444 \n",
"Content-Type: text/xml\nContent-Length:",
datalen,"\n\n",senddata);
if (send(s,sendbuffer,strlen(sendbuffer),0)<0){
perror("socket");
exit(1);
}
recvresult=recv(s,recvbuffer,2048,0);
strcpy(recvdata,recvbuffer);
i=0;
while(1){
strcpy(recvbuffer," ");
recvresult=recv(s,recvbuffer,2048,0);
i=i ;
printf("%d(%d)\n",i,recvresult);
if (recvresult<=0) break;
strcat(recvdata,recvbuffer);
}
printf("%s\n",recvdata);
close(s);
|
|
kensoong
初階會員  發表：31 回覆：70 積分：45 註冊：2003-05-28 發送簡訊給我 |
|
|
hedge
一般會員 發表：4 回覆：10 積分：2 註冊：2004-09-02 發送簡訊給我 |
|
|
Ktop_Robot
站務副站長 發表：0 回覆：3511 積分：0 註冊：2007-04-17 發送簡訊給我 |
發表時間：2004-11-15 11:01:38
IP:202.39.xxx.xxx 未訂閱
系統時間：2024-05-06 8:25:06
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |