1

我正在使用 HttpCli 组件表单 ICS 来发布请求。我使用组件附带的示例。它说:

procedure TForm4.Button2Click(Sender: TObject);
var
    Data : String;
begin
    Data:='status=no';
    HttpCli1.SendStream := TMemoryStream.Create;
    HttpCli1.SendStream.Write(Data[1], Length(Data));
    HttpCli1.SendStream.Seek(0, 0);
    HttpCli1.RcvdStream := TMemoryStream.Create;
    HttpCli1.URL := Trim('http://server/something');
    HttpCli1.PostAsync;
end;

但事实上,它不会发送

状态=否

地位

不明白,问题出在哪里。也许有人可以举个例子,如何在 HttpCli 组件的帮助下发送 POST 请求?

PS 我不能使用 Indy =)

4

1 回答 1

6

我想您使用的是 Delphi 2009 或更高版本,其中该string类型包含每个字符两个字节的 Unicode 数据。该Length函数给出了字符数,而不是字节数,因此当您将字符串放入内存流时,您只需从字符串中复制一半字节。但是,即使您复制了所有这些,您仍然会在流中拥有一堆额外的数据,因为每个字符都有两个字节,而服务器可能只希望得到一个。

使用不同的字符串类型,例如AnsiStringor UTF8String

于 2010-03-08T18:35:24.767 回答