procedure Tfrmadddata.Button1Click(Sender: TObject); var s_name,s_path,E_NAME:string; begin s_name:=edit1.text; E_NAME:=Label2.Caption; s_path:='0000'; if s_name<>'' then begin try dm.ADOConnection1.BeginTrans; with frmmain.adoquery1 do begin insert; fieldbyname('name').asstring:=s_name; FieldByName('path').AsString:=s_path; FieldByName('PID').AsInteger:=Frmmain.ADOTable1.FIELDBYNAME('ID').AsInteger; post; EDIT; s_path:=IntToStr(FIELDBYNAME('PID').ASINTEGER)+'Z'+IntToStr(FIELDBYNAME('ID').ASINTEGER)+'F'+E_NAME; FieldByName('PATH').AsString:=s_path; POST; end; WITH NMFTP1 DO BEGIN Host:='192.168.0.1'; Port:=2112; UserID:='liangdongdongliang'; Password:='531'; Connect; Upload(Frmmain.OpenDialog1.FileName,s_path); Disconnect; END; dm.ADOConnection1.CommitTrans; except dm.ADOConnection1.RollbackTrans; ShowMessage('存储失败!'); end; end else begin ShowMessage('请为新加入数据命名!'); end; end;
存放目录123
用户名和口令各是aaa,bbb
password: bbbftp://192.168.0.1/123/
var
s_name,s_path,E_NAME:string;
begin
s_name:=edit1.text;
E_NAME:=Label2.Caption;
s_path:='0000';
if s_name<>'' then
begin
try
dm.ADOConnection1.BeginTrans;
with frmmain.adoquery1 do
begin
insert;
fieldbyname('name').asstring:=s_name;
FieldByName('path').AsString:=s_path;
FieldByName('PID').AsInteger:=Frmmain.ADOTable1.FIELDBYNAME('ID').AsInteger;
post;
EDIT;
s_path:=IntToStr(FIELDBYNAME('PID').ASINTEGER)+'Z'+IntToStr(FIELDBYNAME('ID').ASINTEGER)+'F'+E_NAME;
FieldByName('PATH').AsString:=s_path;
POST;
end;
WITH NMFTP1 DO
BEGIN
Host:='192.168.0.1';
Port:=2112;
UserID:='liangdongdongliang';
Password:='531';
Connect;
Upload(Frmmain.OpenDialog1.FileName,s_path);
Disconnect;
END;
dm.ADOConnection1.CommitTrans;
except
dm.ADOConnection1.RollbackTrans;
ShowMessage('存储失败!');
end;
end else
begin
ShowMessage('请为新加入数据命名!');
end;
end;
123:目录
aaa:所属的服务器
bbb@用户名
aaa用户名
bbb密码
192.168.0.1 FTP服务器地址
/123/ URI路径
aaa:所属的服务器
bbb:用户名
123:目录
aaa:所属的服务器
bbb:用户名
/123/:目录