업로드 실행시..다음과 같은 에러가 납니다.
procedure TMainForm.UploadButtonClick(Sender: TObject);
begin
if IdFTP1.Connected then begin
if UploadOpenDialog1.Execute then try
SetFunctionButtons(false);
IdFTP1.TransferType := ftBinary; ===> 여기서..
IdFTP1.Put(UploadOpenDialog1.FileName, ExtractFileName(UploadOpenDialog1.FileName));
ChageDir(idftp1.RetrieveCurrentDir);
finally
SetFunctionButtons(true);
end;
end;
end;
Binary모드로 전송하는걸로 설정했는데..
Undeclared Identifier 'ftBinary'
Use절에 추가해야하는 것이 있는지 궁금합니다
uses 절에
IdFTPCommon 추가 해 줘보세요.