VPF::Аналоги TIdMultiPartFormDataStream и TIdHTTP - Форум программистов

CasperSC

Дата 7.5.2010, 00:23 (ссылка)

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

Загрузка ...

Бывалый

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

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

Аналоги TIdMultiPartFormDataStream и TIdHTTP (Delphi) на .NET подскажите какие классы использовать? Мне нужно выгружать изображение на хостинг изображений, есть код на Delphi, я просто хочу его переделать на C#

Код



function TPrimeThrd.IsPrime: string;
var
formData: TIdMultiPartFormDataStream;   s,yu:string;  reggi:tregexpr ;
  iter: integer;
begin   try
formdata:=TIdMultiPartFormDataStream.Create; // создаем переменную пост запрсоа
formData.AddFile('F',furl,'image/gif'); // видишь addfile добавляем файл furl(это просто перменная)

formData.AddFormField('upload', 'yes'); // вставляем еще параметры запрсоа
formData.AddFormField('rotate_angle', '0°'); // вставляем еще параметры запрсоа
s:=  form1.idHTP1.Post('http://www.radikal.ru/action.aspx',formData; //делаем запрос, который в s записывается
 reggi:=tregexpr.Create; //делаем переменную регулярки
reggi.Expression:='<input id="input_link_1" value="(.*?)"'; //определяем выражение регулярки
if reggi.Exec(s) then begin
isprime:=reggi.Match[1]; //если урл есть то выводим готов и урл в form2.label4.caption
  form2.Label3.Caption:='Готово!' ;
  form2.ProgressBar1.Position:=100;
  form2.Label4.Caption:='100%';
  ss:=true;
end else begin isprime:='Не удалось загрузить изображение'; // если урл не найден то пишем что не удалсоь
ss:=true;
end;

finally
 formdata.Free;
 reggi.Free;
end;
end;

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