|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Поиск файла в папке и загрузка его на сервер
Вот код который загружает файл на сервер:
Код:
procedure TForm1.Button1Click(Sender: TObject); var Stream: TIdMultipartFormDataStream; //для работы с формой отправки begin Stream := TIdMultipartFormDataStream.Create; try Stream.AddFile('myfile', 'C:\papka\kzzk95349.txt', ''); Memo1.text:=IdHTTP1.Post('ххххххх/index.php', Stream ); finally Stream.Free; end; end; мне нужно дополнить этот код- что бы скрипт искал все файлы в папке которые начинаются на kzzk и отправлял их на сервер. Можете помочь если не трудно? буду очень благодарен. |
#2
|
||||
|
||||
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
Цитата:
Спасибо разобрался! Последний раз редактировалось M.A.D.M.A.N., 01.05.2014 в 13:00. |