Показать сообщение отдельно
Старый 02.11.2012, 15:17   #39
Deport
Оператор ЭВМ
 
Аватар для Deport
 
Регистрация: 06.03.2009
Сообщений: 38
Написано 3 полезных сообщений
(для 3 пользователей)
Ответ: Загрузка изображений по HTTP

мне удалось защитить библиотеку от попадания на несуществующие файлы но теперь другая ошибка,вот пример изображения из за которого вылетает ошибка: вот код который я использовал :
showcanvas;
x:=0;
a:=0;
b:=0;
c:=0;
repeat 
open('http://m.megafonpro.ru/ml/upload/avatar/'+c+''+b+''+a+'/'+x+'._000_.jpg'); 
if get_error='' then set_method(GET); 
if get_error='' then rc:=request; 
if get_error='' then str:=get_data; 
close;
ope:=get_data_bg;
if (rc=200) and (ope=1) then begin 
     img:=Image_From_string(str);
     str:=del;
     img:=resize_image(img,getWidth,getHeight);
    DrawImage(img, 0, 0); 
    img:=null;
    Repaint; 
   end;
x:=x+1;
if (x>1) and (rc>200) or (rc<200) then begin
a:=a+1;
if a>9 then begin b:=b+1;a:=0;end;
if b>9 then begin c:=c+1;b:=0;end;
if c>9 then begin c:=0; end;
x:=1;
end;
until 1>2;
(Offline)
 
Ответить с цитированием