Q&A

  • 에러 잡아 주세요.....
영어가 딸려서리 뭔소리인지........

에러 좀 잡아 주세요... 별짓을 다 해봤는데..^^



에러 메세지 :

[Error] Unit1.pas(56): Not enough actual parameters





소스 내용.....



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Winsock, FTPGetFile;



type

TForm1 = class(TForm)

procedure B_Recv(Sender: TObject);



private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation

{$R *.DFM}



procedure TForm1.B_Recv(Sender: TObject);

var

FTPGetForm: TFTPGetForm;

WData: TWSAData;

begin

FTPGetForm := TFTPGetForm.Create(Self);

try

FTPGetForm.HOST_IP := '203.251.174.14'; {FTP서버의 IP}

FTPGetForm.USER_ID := 'guest'; {사용자 ID}

FTPGetForm.PASSWORD := 'guestcare'; {비밀번호}

FTPGetForm.PASSIVE_MODE := False; {passive mode 이면 True}

FTPGetForm.SEND_FILENAME := 'FtpTest.txt'; {다운받을 서버의 파일}

FTPGetForm.RECV_FILENAME := 'e:bbb.txt'; {PC의 파일}

FTPGetForm.TRAN_MODE := 'A'; {파일형태: 'A'=텍스트,'I'=바이너리}

FTPGetForm.L_Rfile.Caption := FTPGetForm.RECV_FILENAME;

FTPGetForm.ShowModal; {여기서 바로 다운로드가 시작됨}



if FTPGetForm.FTPTransfered = False then {리턴값이 False 이면 전송실패}

begin

MessageDlg('다운로드가 실패 또는 취소되었습니다', mtInformation, [mbOk], 0);

end

else

begin

MessageDlg('다운로드 완료', mtInformation, [mbOk], 0);

end;

finally

FTPGetForm.Free;

end;



if WSAStartup($0101, WData) <> 0 then

begin

B_Recv.Enabled := False;

end;



end;



end.



에공~~` 꼭 좀 부탁 드립니다......

그럼 고수님들 수고요..... 고수님들 넘 부러워요!!!!

0  COMMENTS