如何用Delphi实现在网页上下载文件。

2003-06-28 10:47:25 233 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Aloudata Agent ：基于 NoETL 明细语义层的分析决策智能体这是包括我们在内的一些厂商探索的一个新方向，这种方式先由大模型将自然语言转化为对指标语义层的查询请求（MQL，Metrics Query Language），再由指标平台将指标和维度的查询与计算逻辑转化为准确的 SQL 查询语句。用户查询经大模型语义解析后，将其转换为指标、维度及筛选条件的组合表达，并生成面向指标平台的 MQL，Aloudata CAN 指标平台的语义引擎将 MQL 转换为准确和可执行的查询 SQL，语义引擎内置函数体系与 SQL 解析器，确保语义转换的 100% 准确性。阅读详情

...全文

速腾16线激光雷达(RS-16)在ubuntu18.04系统下跑SC-A-LOAM算法说明：简要记录一下速腾16线激光雷达即RS-16在ubuntu18.04系统下跑SC-A-LOAM算法的过程，因为SC-A-LOAM算法源码不支持RS雷达的数据，大致思想就是先将rs雷达发布的激光数据转换为velodyne类型的数据，考虑到接下来还要基于RS-16实时运行SC-A-LOAM算法，这里提前将RS_SDK驱动安装好。 1 搭建SC-A-LOAM算法运行环境首先需要在电脑上搭建SC-A-LOAM算法的运行环境，见文章《ubuntu18.04搭建SC-A-LOAM环境并运行》本文所使用的系统架阅读详情

jtww888

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

Debug007 2003-06-29

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, Psock, NMHttp, ExtCtrls, jpeg;

type
TForm1 = class(TForm)
NMHTTP1: TNMHTTP;
Button1: TButton;
Label1: TLabel;
edtURL: TEdit;
StatusBar1: TStatusBar;
Label2: TLabel;
lblTemp: TLabel;
Label4: TLabel;
lblFinal: TLabel;
procedure Button1Click(Sender: TObject);
procedure NMHTTP1Success(Cmd: CmdType);
procedure FormCreate(Sender: TObject);
procedure NMHTTP1Failure(Cmd: CmdType);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
NMHTTP1.Get(edtURL.text);
end;

procedure TForm1.NMHTTP1Success(Cmd: CmdType);
var
fname:string;
buf:string;
pnewfile,poldfile:pchar;
i:integer;
begin
{ Copyright (C) Bowman }
{ MatthewBowman@21cn.com }
//retrive the tmp file
fname:=nmhttp1.body;
//retrive file name
for i:=length(edtURL.Text) downto 1 do
if edtURL.text[i]<>'/' then
buf:=edtURL.text[i]+buf
else
break;
//assign file name
Getmem(poldFile,length(fname)+1);
StrPCopy(poldFile,fname);
Getmem(pnewfile,length(buf)+1);
StrPCopy(pnewfile,buf);
//rename it
MoveFile(poldfile,pnewfile);
Freemem(poldfile);
Freemem(pnewfile);
//show infomation
statusbar1.Panels.Items[0].text:='download complete';
lblTemp.caption:= fname;
lblFinal.Caption:=buf;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//store in file
NMHTTP1.InputFileMode:= TRUE;
NMHTTP1.TimeOut:=2000;
//set temp file name
NMHTTP1.Body:='Part.tmp';
NMHTTP1.Header:='Head.tmp';
end;

procedure TForm1.NMHTTP1Failure(Cmd: CmdType);
begin
StatusBar1.Panels.Items[0].text:='Failed';
end;

end.

Eastunfail 2003-06-28

打赏
举报

或者使用FastNet\NMFTP來通過FTP上傳文件

fengjn 2003-06-28

打赏
举报

可以使用http控件的post或是send函数

如何用Delphi实现在网页上下载文件。

相关推荐