Доброго времени суток есть вот такой кусок кода
Код:
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" не понимаю почему помогите.(Лишний символ выделил красным это знак =)