不用控件.
解决方案 »
- ShellExecute 无法打开网址后面跟参数的网页
- 这样写多表联合查询为什么不行?
- Variant数组这样用会不会有内存泄漏呢?
- Panel2.Width/2;应该怎样改
- 关于打印的问题,请支持!
- 怎么对所收到的EMail标题进行解码???
- 一个dll的注册问题
- 各位,我用select * from i:\mis\dt.dbf where rq='200204'出错,调试时发现query1.text为select * from i? where rq='200204'?在线等
- 反向连接
- 一个很菜的Adoquery的问题
- 有谁用DELPHI开发过网络编程,也就很简单的,把一个文件发送到指定的主机上去,并从指定的主机上收取文件。有谁编过没!
- 为什么会出错,MOVE....
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; function DoFileDownload(lpszFile:String):Integer;stdcall; external 'shdocvw.dll' name 'DoFileDownload';var
Form1: TForm1;implementation{$R *.dfm}function ToUnicode(const aWideStr: WideString): string;
var
sUnicodeHex: string;
i : integer;
begin
for i := 1 to Length(aWideStr) do
begin
sUnicodeHex := Format('%.4x', [Word(aWideStr[i])]);
sUnicodeHex := Chr(StrToInt('$' + Copy(sUnicodeHex, 3, 2))) +
Chr(StrToInt('$' + copy(sUnicodeHex, 1, 2)));
Result := Result + sUnicodeHex;
end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
DoFileDownload(ToUnicode('http://qdlxj.8u8.com/12.wma'));
end;end.