VPF::Загрузка файла на сайт - Форум программистов

ishimcity

Дата 19.1.2009, 13:35 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1

Привет ребята. Вообщем есть сайт на который мне нужно отправлять файлы бинарного типа

в куске сайта я нашел это:

Код


<form enctype='multipart/form-data' action='http://сайт' method='post'> 
<table cellspacing='2' cellpadding='2' border='0'>
<tr>
      <td><p>file: </font></td>
    <td><input name='fil' type='file'></td>
</tr>
<tr>
      <td><p>file size limit: </font></td>
    <td>5000 kb</td>
</tr>
<tr>
    <td><input name='submit' type='submit' value='Send File'> </td>
     <td></td> 
</tr>
<input type='hidden' name='from' value='tree'>
</table>
</form>

уже голову сломал никак немогу придумать как делать POST файла

Парсер выдает такой код: -----------------------------7d917e244c068a
Content-Disposition: form-data; name="fil"; filename="C:\1.zip"
Content-Type: application/octet-stream

Помогите плиззззз
Заранее спасибо

mr_smit

Дата 20.1.2009, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 254
Регистрация: 27.2.2008
Где: Самара

Репутация: 3
Всего: 4

Кусок из моей программы:

Имеем:

Код


<html>
<head>
    <title>Untitled</title>
</head>

<body>

<form method="post" enctype="multipart/form-data">
<input name="action" value="addimage" type="hidden">
<input name="image" size="35" type="file"> <br>
<input value="Загрузить картинку" type="submit">
</form>

</body>

</html>

Туда я загружаю картинку:

Код


//----------------------------------------------------
// заливаем файл

procedure TForm1.UploadScreen (FileName: TFileName);
begin
label2.Caption:='Загрузка файла...';
try
  Response:=TStringStream.Create('');
  Img:=TidMultiPartFormDataStream.Create;
  Img.AddFormField('action','addimage');
  Img.AddFile('image',filename,'image/jpeg');
  try
    idHTTP.Post('http://qiq.ru/image.php',Img,Response);
  except
  on E: EIdHTTPProtocolException do
   begin
     MessageBox(0,PChar(E.Message),'Ошибка загрузки',0);
   end;
  end;
finally
  HtmlForParsing:=Response.DataString; //(Ответ);
  Img.Free;
  Response.Free;
end;
end;

//----------------------------------------------------

Да, забыл:

Код


var
  Img: TidMultiPartFormDataStream;
  Response: TStringStream;

и IdMultipartFormData в uses

Обрати внимание:

Код


<input name="image" size="35" type="file">

Код


Img.AddFile('image',filename,'image/jpeg');

имя image

у тебя fil, должно соответствовать (должны быть одинаковы)

и ещё:

Код


<input name="action" value="addimage" type="hidden">

Код


Img.AddFormField('action','addimage');

тоже самое.

Это сообщение отредактировал(а) mr_smit - 20.1.2009, 21:41

ishimcity

Дата 21.1.2009, 06:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 1.6.2007
Где: Тюменская область . Ишим

Репутация: нет
Всего: 1

mr_smit Спасибо друг!!!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Сети \| Следующая тема »