|
03.11.2012, 15:05
|
#1
|
Оператор ЭВМ
Регистрация: 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.
|
Последний раз редактировалось Deport, 03.11.2012 в 15:08.
Причина: поправил
|
(Offline)
|
|
03.11.2012, 15:22
|
#2
|
Оператор ЭВМ
Регистрация: 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;
inf:=''+str+'';
s:='/root/1.jpg';
a:=file_exists(s);
if a=0 then begin
jsr75i.file_create(s);
end;
if i=6 then begin
a:=jsr75i.open_file(s);
jsr75i.write_string(inf);
str:=de;
s:=de;end;
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.
|
поробуйте сами , реальный вес картинки 2*103*806 байт
а сохраняется 362*496 байт(картинка остается рабочей)
но это тоже не вариант...нужно будет сохранять гигабайтами тогда хеап не хватит....
Последний раз редактировалось Deport, 03.11.2012 в 15:30.
Причина: дополнил
|
(Offline)
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 02:46.
|