下载
var
DownLoadFile: TMemoryStream;
url: string;
ExcelApp: Variant;
tmpfile: TStrings;
tmpurl: string;
index: integer;
param2: string;
begin
url := edit1.Text;
// index := pos('/business/storemanager/', param2);
// tmpurl := copy(param2, 1, index);
// url := tmpurl + StringReplace(param1, '../../../../', '', [rfReplaceAll, rfIgnoreCase]);;
// url := url + param2;
DownLoadFile := TMemoryStream.Create();
IdHTTP1.Get(url, DownLoadFile);
if FileExists('c:\rfid_tmp_.txt') then
DeleteFile('c:\rfid_tmp_.txt');
DownLoadFile.SaveToFile('c:\rfid_tmp_.txt');
DownLoadFile.Free;
上传
var
AValues: TStringList;
PostStream: TIdMultiPartFormDataStream;
ResponseStream: TStringStream;
sURL: string;
begin
sURL:= 'fileupload?fileid=';
AValues := TStringList.Create;
// AValues.Values['usr'] := '"John Doe" ';
// AValues.Values['grp'] := 'public';
AValues.Values['file'] := 'c:\yfrfid_tmp_.txt';
PostStream:= TIdMultiPartFormDataStream.Create;
ResponseStream := TStringStream.Create('');
try
// PostStream.AddFormField('usr', AValues.Values['usr']);//等同于html中的<input type="text" value="">
// PostStream.AddFormField('grp', AValues.Values['grp']);
PostStream.AddFile('file', AValues.Values['file'], GetMIMETypeFromFile(AValues.Values['file']));//类似html中的<input type="file" value="">
IdHTTP1.Request.ContentType := PostStream.RequestContentType;
IdHTTP1.Post(sURL, PostStream, ResponseStream);
finally
memo1.Text := ResponseStream.DataString;
ResponseStream.Free;
PostStream.Free;
AValues.Free;
end;
end;