Как отправлять файл опредёленного формата на ftp

[c1759602]

Привет всем!! Требуется отправить файл определённого формата .pdf
при этом название этих .pdf-файлов всегда разное. Как отправить файлы определённого формата по маске расширение .pdf?

Код представлен ниже:

begin
    idFTP1.Host:='ftp.server.com';
    idFTP1.Port:=21;
    idFTP1.Username:='123';
    idFTP1.Password:='321';
   idFTP1.Connect;
  idFTP1.put('D:\Отчёты\2013'); // как изменить код чтобы отправка была из этой папки при этом название .pdf каждый раз разное..
idFTP1.Disconnect;
 end;

[Stilet]

begin
    idFTP1.Host:='ftp.server.com';
    idFTP1.Port:=21;
    idFTP1.Username:='123';
    idFTP1.Password:='321';
   idFTP1.Connect;
if FindFirst('D:\Отчёты\2013\*.pdf',faAnyFile,sr)=0 then begin repeat
  idFTP1.put('D:\Отчёты\2013\'+sr.name); 
 until (FindNext(sr)<>0)
FindClose(sr);
idFTP1.Disconnect;
 end;

Подходит?

[c1759602]

Сообщение от Stilet

begin
    idFTP1.Host:='ftp.server.com';
    idFTP1.Port:=21;
    idFTP1.Username:='123';
    idFTP1.Password:='321';
   idFTP1.Connect;
if FindFirst('D:\Отчёты\2013\*.pdf',faAnyFile,sr)=0 then begin repeat
  idFTP1.put('D:\Отчёты\2013\'+sr.name); 
 until (FindNext(sr)<>0)
FindClose(sr);
idFTP1.Disconnect;
 end;

Подходит?

Да, вполне.. спасибо!

[c1759602]

Сообщение от Stilet

begin
    idFTP1.Host:='ftp.server.com';
    idFTP1.Port:=21;
    idFTP1.Username:='123';
    idFTP1.Password:='321';
   idFTP1.Connect;
if FindFirst('D:\Отчёты\2013\*.pdf',faAnyFile,sr)=0 then begin repeat
  idFTP1.put('D:\Отчёты\2013\'+sr.name); 
 until (FindNext(sr)<>0)
FindClose(sr);
idFTP1.Disconnect;
 end;

Подходит?

Вот ругается
[DCC Error] 123.pas(59): E2003 Undeclared identifier: 'sr'
[DCC Error] 123.pas(60): E2250 There is no overloaded version of 'Put' that can be called with these arguments
[DCC Error] 123.pas(61): E2033 Types of actual and formal var parameters must be identical
[DCC Error] 123.pas(62): E2066 Missing operator or semicolon
[DCC Error] 123.pas(62): E2033 Types of actual and formal var parameters must be identical
[DCC Fatal Error] 123.dpr(5): F2063 Could not compile used unit '123.pas'

[BDA]

begin
    idFTP1.Host:='ftp.server.com';
    idFTP1.Port:=21;
    idFTP1.Username:='123';
    idFTP1.Password:='321';
   idFTP1.Connect;
if FindFirst('D:\Отчёты\2013\*.pdf',faAnyFile,sr)=0 then begin repeat
  idFTP1.put('D:\Отчёты\2013\'+sr.name); 
 until (FindNext(sr)<>0);
FindClose(sr);
idFTP1.Disconnect;
 end;

[c1759602]

Сообщение от BDA

begin
    idFTP1.Host:='ftp.server.com';
    idFTP1.Port:=21;
    idFTP1.Username:='123';
    idFTP1.Password:='321';
   idFTP1.Connect;
if FindFirst('D:\Отчёты\2013\*.pdf',faAnyFile,sr)=0 then begin repeat
  idFTP1.put('D:\Отчёты\2013\'+sr.name); 
 until (FindNext(sr)<>0);
FindClose(sr);
idFTP1.Disconnect;
 end;

[DCC Error] 123.pas(58): E2003 Undeclared identifier: 'sr'
[DCC Error] 123.pas(59): E2250 There is no overloaded version of 'Put' that can be called with these arguments
[DCC Error] 123.pas(60): E2033 Types of actual and formal var parameters must be identical
[DCC Error] 123.pas(61): E2033 Types of actual and formal var parameters must be identical
[DCC Fatal Error] 123.dpr(5): F2063 Could not compile used unit '123.pas'

[Аватар]

c1759602, нажать F1, посмотреть типы параметров FindFirst, описать sr нужного типа. Неужели все с ложки нужно в рот ложить?

[c1759602]

Сообщение от Аватар

c1759602, нажать F1, посмотреть типы параметров FindFirst, описать sr нужного типа. Неужели все с ложки нужно в рот ложить?

var
SR: TSearchRec;
FindRes: Integer;

Спасибо за подсказку

[Аватар]

Кроме справки есть еще исходные дельфийские коды да и гугл не сдох еще пока
http://delphibasics.ru/FindFirst.php