Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   www.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 03.11.2012, 11: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 Кб, 124 просмотров)

Последний раз редактировалось Deport, 03.11.2012 в 11:08. Причина: поправил
(Offline)
 
Ответить с цитированием
Старый 03.11.2012, 11:22   #2
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;

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 в 11:30. Причина: дополнил
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +1, время: 10:18.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com