제가 FTP서버에 있는 파일과 현재 실행파일의 디렉토리에 있는

파일을 비교해서요.. 물론 보시면 아시겠지만 ini파일을 비교해서요

버젼이 다르면 다운을 받으려고 하거든요.

FTP의 파일 경로를 어케 할지 몰라서 걍 다운받은 후에 비교하고 처리

끝나면 파일 지워버렸거든요... 좀 무식하죠...

초보라서...^^;

그런데 문제는 어케 하든지 간에 실행중인 어플리케이션을 종료하고 다운을

받은후에 새로운 파일을 원래 어플이 있던 디렉토리로 옮기고 원래 디렉토리의 파일은 지워야 한다고 알고 있는데여... 전 안되네여...

다운을 걸고 실행중인 자기 자신을 죽이삐고 다 받아지면 옮기고 다시 실행

시킨다... 이거 정말 어렵네요... 좀 도와주세요...

아래는 걍 버전 비교하구 다르면 다운받는건데요.. 어디다 어케 추가를 해야 할지 고수님들의 가르침을 받고 싶어서요...

정말 급한데 좀 도와주세요 ~~~ 좋은 하루 되시길 바랍니다.



procedure TForm1.FTPConnect(Sender: TObject);

begin

Edit1.text := 'success';

try FTP.Download('ver.ini', 'c:ver.ini'); except end;

end;



procedure TForm1.FTPConnectionFailed(Sender: TObject);

begin

Edit1.text := 'Failed';

end;



procedure TForm1.Button1Click(Sender: TObject);

var

icini : TIniFile;

icini1 : TINIFile;

aa,bb : string;



begin

icini := TiniFile.Create ('c:ver.ini');

aa := icini.ReadString('version','ver','');



icini1 := TiniFile.Create(ExtractFilePath(Application.ExeName)+'ver.ini');

bb := icini1.ReadString('version','ver','');



icini.free;

icini1.free;



if aa <> bb then begin

try FTP.Download('icini.exe', 'icini.exe'); except end;

end;

DeleteFile('c:ver.ini');

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

FTP.Connect;

end;



// 이 코드는 따로 만든겁니다. 원래 코드는 FormCreate에 쓰였었는데

실행이 안되고 에러가 자꾸나서 따로 맹근겁니다.