Показать сообщение отдельно
Старый 03.11.2012, 15:05   #1
Deport
Оператор ЭВМ
 
Аватар для Deport
 
Регистрация: 06.03.2009
Сообщений: 38
Написано 3 полезных сообщений
(для 3 пользователей)
Сообщение помогите найти ошибку

тут такая штука: пытаюсь скачать файл кусками из интернета без всяких форматирований и преобразований, проблема заключается в следующем: в пример взял картинку, в мидлете картинка отображается но сохраняется совсем не рабочей, что я не так сделал? помогите пожалуйста...
uses proweb,base64v3,im,jsr75i,canvas;
var cmdQuit, cmdResetName, clicked : command;
htmlBody ,co ,base,str,res,de,s: string;
contentType ,inf: string;
fo1,rc,len,kb,mb,rez,nez,i,n,a:integer;
img:image;
begin

repeat
i:=i+1;
open('http://m.megafonpro.ru/ml/upload/mpro/files/312/'+i+'._000_.ta');
if get_error='' then set_method(GET);
if get_error='' then rc:=request;
if get_error='' then str:=get_data;
s:='/root/1.jpg';
a:=file_exists(s);
if a=0 then begin
jsr75i.file_create(s);
end;
a:=jsr75i.open_file(s);
jsr75i.write_string(str);
inf:=''+str+'';
str:=de;
s:=de;
until i=6;
a:=jsr75i.close_file(s);
showform;
clearform;showcanvas;

img:=Image_From_string(inf);
img:=resize_image(img,getWidth,getHeight);
drawImage(img,0,0);
repaint;
cmdQuit := CreateCommand('Quit', CM_EXIT, 1);
AddCommand(cmdQuit);
cmdResetName := CreateCommand('Reset', CM_SCREEN, 1);
AddCommand(cmdResetName);
repeat
clicked := GetClickedCommand;
until clicked = cmdQuit;
end.
Вложения
Тип файла: rar new.rar (26.8 Кб, 265 просмотров)

Последний раз редактировалось Deport, 03.11.2012 в 15:08. Причина: поправил
(Offline)
 
Ответить с цитированием