dws2ftpmodule.pas

来自「script language」· PAS 代码 · 共 528 行 · 第 1/2 页

  FTPClientObj.Host := Info['Host'];
  FTPClientObj.Username := Info['Userid'];
  FTPClientObj.Password := Info['pwd'];
  err := FTPClientObj.Connect;
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetFileEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  err: string;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  err := FtpClientObj.Download(Info['Source'], Info['Dest']);
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsPutFileEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  err: string;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  err := FtpClientObj.Upload(Info['Source'], Info['Dest']);
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsChangeDirEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  err: string;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  err := FtpClientObj.ChangeDir(Info['DirName']);
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsMakeDirEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  err: string;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  err := FtpClientObj.Makedir(Info['dirName']);
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsExecuteEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  rets: integer;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.Execute(Info['Command'], rets);
  Info.Result := rets;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsCreateSAVFEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  command: string;
  rets: integer;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Command := 'RMCD CRTSAVF FILE(' + Info['Library'] + '/' + Info['File'] + ') TEXT(''' + Info['Description'] + ''')';
  FTPClientObj.Execute(Command, rets);
  Info.Result := rets;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsSetHostEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.Host := Info['Value'];
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetHostEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.Host;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsSetUserIDEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.Username := Info['Value'];
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetUserIDEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.Username;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsSetPwdEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.Password := Info['Value'];
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetPWDEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.Password;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsSetDefaultDirEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.DefaultDir := Info['Value'];
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetDefaultDirEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.DefaultDir;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetStatusEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.Status;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetCurrentDirEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.CurrentDir;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsDeleteFileEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  err: string;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  err := FTPClientObj.DeleteFile(Info['FileName']);
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsRemoveDirEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  err: string;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  err := FTPClientObj.RemoveDir(Info['DirName']);
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsCloseEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.DisConnect;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsConnectEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
  err: string;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  err := FTPClientObj.Connect;
  Info.Result := (err = '');
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsDisconnectEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.DisConnect;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsLastErrorEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.LastError;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsLastResponseEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.LastResponse;
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsSetLogFileEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.LogFile := Info['Value'];
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsSetMaskPasswordEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  FTPClientObj.MaskPassword := Info['Value'];
end;

procedure Tdws2FTPLib.customFTPUnitClassesTFTPConnectionMethodsGetMaskPasswordEval(
  Info: TProgramInfo; ExtObject: TObject);
var
  FTPClientObj: TFtpClientObject;
begin
  FTPClientObj := TFtpClientObject(ExtObject);
  Info.Result := FTPClientObj.MaskPassword;
end;

end.