idHTTPではなくNetHTTPClientを使用する方法、HTTPクライアントAPIの使用方法を示すインターネット上のリソースはほとんどありません。Delphi xeでHTTPクライアントAPIを使用する方法
私が試したもの:
var
LHTTPClient: THTTPClient;
P : TStrings;
begin
LHTTPClient := THTTPClient.Create;
P := TStringList.Create;
try
Params.Add('test=' + Path);
Memo1.Lines.Text := NetHTTPClient1.Post('www.server.com', P).ContentAsString();
finally
LHTTPClient.Free;
end;
end;
を私のコード:
procedure TForm1.Start;
var
lHTTP: TIdHTTP;
P: TStringList;
begin
lHTTP := TIdHTTP.Create(nil);
P := TStringList.Create;
try
Params.Add('test=' + Path);
try
Reply.Text := lHTTP.Post('www.server.com', P);
if AnsiContainsStr(Reply.Text, 'good')
then
begin
Memo1.Lines.Add(Path);
end;
Finally
end;
end;
end.
それはあなたがすでに試みられているコードを表示した場合より良いとして、あなたがそれに合わせて傾ける理由を説明するだろうあなたのコード。 –
@RemyLebeau私が試したことを加えました.. – cyberdude
@RemyLebeau私はあなたの答えを使用しましたが、jsonでないHTMLページ – cyberdude