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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.03.2012, 22:38   #1
Droniwe
Пользователь
 
Регистрация: 30.10.2008
Сообщений: 41
Восклицание Не понимаю откуда?

Доброго времени суток есть вот такой кусок кода

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
LoginInfo, Response,imj: TStrings;
Data: TIdMultiPartFormDataStream;
begin
imj:='http://tvbest.com.ua/uploads/posts/2012-02/1329648874_215a235e0da08749f0a26e3326b815c5.jpg';
LoginInfo := TStringList.Create;
Response := TStringList.Create;

 while pos('logout',Response.Text)=0 do
     begin
LoginInfo.Add('subaction=dologin');
LoginInfo.Add('username=test');
LoginInfo.Add('password=test');
LoginInfo.Add('selected_language=Russian');
LoginInfo.Add('x=43');
LoginInfo.Add('y=33');
Response.Text:=IdHTTP2.Post('http://filmonline.in.ua/admin.php',LoginInfo);
sleep(2000);
LoginInfo.Free;
     end;

Response := TStringList.Create;
data:=TIdMultiPartFormDataStream.Create;
idHTTP2.Request.Referer := 'http://filmonline.in.ua/admin.php?mod=files&action=quick&area=short_story';
idHTTP2.Request.Referer := 'multipart/form-data';


 while pos(']" value="',Response.Text)=0 do
     begin
Data.AddFormField('subaction', 'upload');
Data.AddFormField('area', 'short_story');
Data.AddFormField('action', 'quick');
Data.AddFormField('images_number', '1');
Data.AddFormField('imageurl', imj);
Data.AddFormField('t_size', '450');
Data.AddFormField('t_seite', '0');
Data.AddFormField('make_thumb', 'make_thumb');
Response.Text := IdHTTP2.Post('http://filmonline.in.ua/admin.php?mod=files&action=quick&area=short_story',Data);
sleep(20000);
data:=TIdMultiPartFormDataStream.Create;
end;

memo1.Text:='http://filmonline.in.ua/uploads/posts/'+pars1(']" value="','">', Response.Text);
end;
Но в результате при передаче "IdHTTP2.Post('http://filmonline.in.ua/admin.php?mod=files&action=quick&ar ea=short_story',Data);" почемуто ссылка на картинку стаёт не такой как оригинал а именно "http://tvbest.com.ua/uploads/posts/2012-02/1329648874_215a235e0da08749=f0a26e3326b815c5.jpg" не понимаю почему помогите.(Лишний символ выделил красным это знак =)
Droniwe вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Откуда нуль?? FrozenHurt Общие вопросы C/C++ 2 21.01.2012 22:04
Откуда старые рисунки?.. Meti Microsoft Office Word 0 07.06.2010 14:30
откуда ошибка 183? vl1639 Общие вопросы Delphi 4 17.01.2009 01:11
Поясните откуда ошибка? Hegel Помощь студентам 8 12.01.2009 07:39