^^ 하이...



님.. > StatusBar1.Panels[0].Text := FormatDateTime('yyyy.mm.dd hh:nn:ss', now) + ' ' + '에 데이타베이스에 연결되었습니다.' ;

이부분은 NMFTP1Connect 이벤트에 코딩하심이 어떨런쥐엽 ^^



어려운불우이웃 wrote:

> ftp에 연결을 시키면 에러가 자꾸나거든요..

> 코딩은 아래부분인데 디버깅을 하면 NMFTP1.COnnect에서 자꾸 에러가 나더라구요..

> 에러는--> Project Project1.exe raised exception class FTPException with message '530 Login incorrect' Process stoped

> 아시는 고수님들의 도움을 기다립니다..

> 그럼 좋은 하루 되시길..

>

> procedure TfmMain.btnFTPConClick(Sender: TObject);

> var

> i : Integer;

> FTPHostName, FTPHostNameTemp: String;

> begin

> Reg := TRegistry.Create;

> Reg.RootKey := HKEY_LOCAL_MACHINE;

> Reg.OpenKey('SOFTWARECIS Technologyelection', True);

> FTPHostNameTemp :=Reg.ReadString('HostName');

> FTPHostName := '';

> for i := 1 to Length(FTPHostNameTemp) do

> begin

> if copy(FTPHostName,i,1) <> ' ' then

> FTPHostName := FTPHostName + copy(FTPHostNameTemp,i,1);

> end;

> NMFTP1.Host := FTPHostName;

> NMFTP1.UserID := Reg.ReadString('UserID');

> NMFTP1.Password := Reg.ReadString('Password');

> eAddress.Text := FTPHostName;

> try

> NMFTP1.Connect;

> StatusBar1.Panels[0].Text := FormatDateTime('yyyy.mm.dd hh:nn:ss', now) + ' ' + '에 데이타베이스에 연결되었습니다.' ;

> except

> On E:Exception do begin

> showmessage(E.message);

> exit;

> end;

> end;

> end;