14.12.2011, 21:19
Активный
Регистрация: 01.08.2011
Адрес: ЧЕбоксары
Сообщения: 248
Версия Delphi: XE
Репутация: -615
PHP код:
var
Response : String ;
FormData : TIdMultiPartFormDataStream ;
S , E : integer ;
link : string ;
begin
if ( FileExists ( ed_file . Text ) = False ) then
begin
MessageBox ( 0 , 'Файл(ы) не выбран(ы), выберете файл..!!! ' , 'Ошибка' , MB_ICONHAND );
Exit;
end else
begin
FormData := TIdMultiPartFormDataStream . Create ;
try
FormData . AddFormField ( 'upload' , 'yes' );
FormData . AddFormField ( 'upload' , 'yes' );
FormData . AddFile ( 'F' , ed_file . Text , 'image/jpeg' );
FormData . AddFormField ( 'URLF' , '' );
FormData . AddFormField ( 'O' , 'yes' );
FormData . AddFormField ( 'M' , '640' );
FormData . AddFormField ( 'JQ' , '85' );
FormData . AddFormField ( 'J' , 'yes' );
FormData . AddFormField ( 'IM' , '7' );
FormData . AddFormField ( 'VM' , '180' );
FormData . AddFormField ( 'R' , '0' );
FormData . AddFormField ( 'VE' , 'yes' );
FormData . AddFormField ( 'V' , 'zoom' );
FormData . AddFormField ( 'X' , '' );
FormData . AddFormField ( 'FS' , '' );
IdHTTP . HandleRedirects := True ;
Response := idHTTP . Post ( 'http://www.radikal.ru/action.aspx' , FormData );
//[url=http://www.radikal.ru][img]http://s48.radikal.ru/i121/1007/e2/ea464811add5.jpg[/img][/url]
S := pos ( '[url=http://www.radikal.ru][img]' , Response ) + Length ( '[url=http://www.radikal.ru][img]' );;
E := pos ( '[/img][/url]' , Response );
link := Copy ( Response , S , E - S );
ed_link . Text := link ;
finally
FormData . Free ;
end ;
end ;
end ;
Пробовал так но ничего не происходит(
__________________
Ставь спасибо за спасибо!
Помог?Ставь спасибо!Увидел пост? Поставь спасибо!