HttpOpenRequest函数PLPSTR怎么进行传参

Question

调用方法完全出自:http://hi.baidu.com/nianxiaoyou/blog/item/f255ca18b51fe4b14aedbcd3.html
WWWDownFile函数
var 
   AcceptType: LPStr;
   ........  AcceptType := PChar('Accept:*/* ');  hRequest := HttpOpenRequest(hConnect, RequestMethod, PChar(FileName), 'HTTP/1.1',PChar(FTReferer), @AcceptType, InternetFlag, 0);
把@AcceptType设置为nil时正常,但是传入上面的格式
抓包后的结果
出现一断不明的乱码,不知道怎么回事.　　function HttpOpenRequest(hConnect: HINTERNET; 
　　lpszVerb: PChar;
　　lpszObjectName: PChar; 
　　lpszVersion: PChar; 
　　lpszReferrer: PChar;
　　lplpszAcceptTypes: PLPSTR; 
　　dwFlags: DWORD;
　　dwContext: DWORD): HINTERNET; stdcall;哪位兄弟帮忙看下啊

Answer 1

使用Ansi编码的话,请导出HttpOpenRequestA

Answer 2

function HttpOpenRequest(hConnect: HINTERNET; lpszVerb: PChar;
  lpszObjectName: PChar; lpszVersion: PChar; lpszReferrer: PChar;
  lplpszAcceptTypes: PLPSTR; dwFlags: DWORD;
  dwContext: DWORD): HINTERNET; stdcall;function HttpOpenRequestA(hConnect: HINTERNET; lpszVerb: PAnsiChar;
  lpszObjectName: PAnsiChar; lpszVersion: PAnsiChar; lpszReferrer: PAnsiChar;
  lplpszAcceptTypes: PLPSTR; dwFlags: DWORD;
  dwContext: DWORD): HINTERNET; stdcall;function HttpOpenRequestW(hConnect: HINTERNET; lpszVerb: PWideChar;
  lpszObjectName: PWideChar; lpszVersion: PWideChar; lpszReferrer: PWideChar;
  lplpszAcceptTypes: PLPWSTR; dwFlags: DWORD;
  dwContext: DWORD): HINTERNET; stdcall;

Answer 3

就是把
HttpOpenRequest改成HttpOpenRequestA吗
不过改了还是老样子.应该怎么操作呢.老大