use
Winapi.ActiveX; //调用IPersistStreamInit类
procedure TForm1.Button2Click(Sender: TObject);
var
PostList: TStringList;
Response, StrStream: TStringStream;
ResultString: string;
作者:佚名 时间:2019-11-20
Delphi Idhttp的 Get 和 Post 方法 procedure TForm1.FormCreate(Sender: TObject);
var
Param: TStringList;
RStream: TStringStream;
begin
Param := TStringList.Create;
RStream := TStringStream.Create('
作者:佚名 时间:2019-11-20
在delphi7中使用idhttp下载中文文件没有问题,但是在delphiXE中下载带有中文的文件就有问题。这是因为在delphiXE中的string类型占用的字节不一样照成的, 解决方法,在request之前对url进行编码 idHTTP.URL.URLEncode(fileurl) 。例子如下: 这个是下载的函数; procedure TForm3.Button2Click(Sender: T
作者:佚名 时间:2019-12-11
IDFTP
1 连接远程服务器
procedure Connect(AAutoLogin: boolean; const ATimeout: Integer);
2 改变目录
procedure ChangeDir(const ADirName: string);
3 下载
procedure Get(const ASourceFile: string; ADest: TStream; A
作者:佚名 时间:2020-02-02
var
fhttpRequest: TIdHTTP;
PostData : TStringStream;
tmpStr : String;
begin
fhttpRequest := TIdHTTP.Create(nil);
with fhttpRequest do
begin
ProtocolVersion := pv1_1;
AllowCookies := Tru
作者:佚名 时间:2020-03-02
采取以下情况: procedure Test;
var
Response : String;
begin
Response := IdHttp.Post(MyUrL, AStream);
DoSomethingWith(Response);
end; 现在,web服务器以UTF-8返回数据. 假设它返回一些包含字符é的UTF-8 XML. 如果我使用变量Response它不包含这个字符,
作者:佚名 时间:2019-05-08