Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Работа с сетью в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 01.02.2011, 09:46   #1
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
Лампочка IdMultipartFormData и отправка нескольких файлов

Обьясниете...
Создаю динамически edit и button
Код:
     const n=15;

var
  Form1: TForm1;
  btn:array[1..n] of tbutton;
  edit:array[1..n] of tedit;
  i:integer;

procedure TForm1.Button2Click(Sender: TObject);
begin
 if i<n then
  begin
   inc(i);
   btn[i]:=TButton.Create(form1);
 btn[i].Parent:=form1;
 btn[i].Caption:='+'+inttostr(i);
 btn[i].Name:='mybtn'+inttostr(i);
 btn[i].Left:=352;
 btn[i].Top:= 168+(i*25);
 btn[i].Height:=21;
 btn[i].width:= 21;

 edit[i]:=Tedit.Create(form1);
 edit[i].Parent:=form1;
 edit[i].Name:='myedit'+inttostr(i);
 edit[i].Text:='';
 edit[i].Left:=8;
 edit[i].Top:=168+(i*25);
 edit[i].Width:=337;
 edit[i].Visible:=true;
  end;
end;
После чего мне нужносделать так чтобы каждый button открывал и записывал в соответствующий edit имя файла. И как то нужно еще их отправить чтобы каждый фаил был в соответствующей строке formdata.addfile(
Код:
try
formdata:=TIdMultiPartFormDataStream.Create;
formData.AddFile('thefile0',..что сюда писать за место имени файла...,'application/octet-stream');
formData.AddFile('thefile1',..что сюда писать за место имени файла...,'application/octet-stream');
formData.AddFile('thefile2',..что сюда писать за место имени файла...,'application/octet-stream');
.... //как написать чтобы динамически создавались formData.AddFile по количеству файлов
formdata.AddFormField('submit.x', '54');
formdata.AddFormField('submit.y', '14');
formdata.AddFormField('submit', 'Unload');
s:=form1.idHTTP1.Post('http://graial.ru/imgs/inc/uploader.php',formData); //отправялем пост запрос, в ответ придет string. его в s
finally
Idhttp1.Free;
а может можно сделать так чтобы параметр создавался автоматически под определенным числом FormData.AddFile('thefile1,..что сюда писать за место имени файла...,'application/octet-stream');
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Старый 06.02.2011, 12:42   #2
grafgrial
Просто хороший
Форумчанин
 
Аватар для grafgrial
 
Регистрация: 26.03.2010
Сообщений: 562
По умолчанию

Никто не делал такого?
Помог, нажми весы слева
grafgrial вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Открытие нескольких файлов ChEaTeR-abc Помощь студентам 6 15.07.2010 17:03
Отправка нескольких файлов на FTP AnKor94 Общие вопросы Delphi 1 04.04.2010 00:09
Отправка файлов Progs1024 Общие вопросы Delphi 1 25.11.2009 16:36
Проигрывание нескольких файлов <-=SG=-> Общие вопросы Delphi 3 11.10.2008 15:47
открытие нескольких файлов valyan Общие вопросы Delphi 10 17.07.2008 20:27