WinINet怎样进行HTTP上传、下载文件

2012-08-07 05:03:31 198 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

一文了解ECU软件刷写的2种方法：Bootloader刷写和调试器刷写分为刷写前、刷写中和刷写后三个阶段，如下示意：下面我们来详细了解一下Bootloader收到外部请求后开始刷写的三个阶段1）刷写前进行刷写的准备，一是确保刷写阶段总线通信的稳定性，二是避免刷写阶段出现非预期的故障，三是读取车辆数据供刷写前的一些检查等，如下所示：首先进行会话控制，通过功能寻址方式进入扩展会话模式，为后面的信息访问及其他指令做准备；然后检查刷写的前提条件，通过物理寻址方式发送历程控制请求。比如车确实处于静止状态，供电电压稳定等条件下才允许刷写；阅读详情

http://www.codesky.net/article/200309/4172.html
不知道怎么调用？

...全文

Python之美——Python2与Python3多版本共存 Python多版本共存的方法Python2、Python3共存的方法python2下载及环境变量配置第一步、打开Python官网，下载Python2第二步、python2环境变量配置测试结果 Python2、Python3共存的方法方法如下： 1.先确保不同版本解释器的python.exe所在的路径在环境变量中 2.拷贝各自的python.exe并重命名即可步骤（理解不了下面有图示）： 1、首先你需要将不同的python版本安装，且都已经将跟版本的环境变量配置好了,python3和2的下载方式阅读详情

dsdgdg

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

dsdgdg 2012-08-09

打赏
举报

[Quote=引用 1 楼的回复:]
上传文件

Delphi(Pascal) code

function HttpPostFile(Url, FileField, FileName: string): string;
const
Agent = 'SURE';
MaxLen = 1024 * 100; //在这里定义发送文件最大限制，100K
var
hSession, hOpenReq, hConnection……
[/Quote]
怎样调用呢?FileField是什么东西

orxor 2012-08-09

打赏
举报

上传文件



function HttpPostFile(Url, FileField, FileName: string): string;

const

Agent = 'SURE';

MaxLen = 1024 * 100; //在这里定义发送文件最大限制，100K

var

hSession, hOpenReq, hConnection: HInternet;

SendBuf: array[0..MaxLen - 1] of char;

SendLen: DWord;

RecBuf: array[0..99] of char;

RecLen, dum: DWORD;

sHeader: string;

UrlHost, UrlFile,Bound: string;

begin

result := '';

dum := 0;

UrlHost := ExtractUrlAddress(Url);

UrlFile := ExtractUrlFileName(Url);



SendLen := BuildBound(FileField, FileName, @SendBuf[0],Bound);

if SendLen < 1 then

    exit;

hSession := InternetOpen(PChar(Agent), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0); //INTERNET_FLAG_RAW_DATA

try

    if hSession = nil then

      result := 'Error openning internet'

    else begin

      hConnection := InternetConnect(hSession, PChar(UrlHost), INTERNET_DEFAULT_HTTP_PORT, nil, nil, INTERNET_SERVICE_HTTP, 0, 0);

      try

        if hConnection = nil then

          result := 'Error openning internet connection'

        else begin

          hOpenReq := HTTPOpenRequest(hConnection, 'POST', PChar(UrlFile), 'HTTP/1.1', nil, nil, INTERNET_FLAG_RELOAD, 0);

          try

            if hOpenReq = nil then

              result := 'Error openning internet request'

            else begin

              sHeader := 'Host: ' + UrlHost;

              HttpAddRequestHeaders(hOpenReq, PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD);

              sHeader := 'Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*';

              HttpAddRequestHeaders(hOpenReq, PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD);

              sHeader := 'Accept-Language: en-us';

              HttpAddRequestHeaders(hOpenReq, PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD);

              sHeader := 'Content-Type: multipart/form-data;boundary='+Bound;

              HttpAddRequestHeaders(hOpenReq, PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD);

              sHeader := 'Accept-Encoding: gzip, deflate';

              HttpAddRequestHeaders(hOpenReq, PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD);

              sHeader := 'Connection: Keep-Alive';

              HttpAddRequestHeaders(hOpenReq, PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD);

              sHeader := 'Cache-Control: no-cache';

              HttpAddRequestHeaders(hOpenReq, PChar(sHeader), Length(sHeader), HTTP_ADDREQ_FLAG_ADD);

              HTTPSendRequest(hOpenReq, nil, 0, @SendBuf, SendLen);

              RecLen := SizeOf(RecBuf);

              HTTPQueryInfo(hOpenReq, HTTP_QUERY_STATUS_TEXT, @RecBuf, RecLen, dum);

              result := string(RecBuf);

            end;

          finally

            InternetCloseHandle(hOpenReq);

          end;

        end;

      finally

        InternetCloseHandle(hConnection);

      end;

    end;

finally

    InternetCloseHandle(hSession);

end;

end;

WinINet怎样进行HTTP上传、下载文件

相关推荐