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

Chip · 26.01.2007, 17:59

Фунция readByte(res) считывает из бинарника байт в негативе , я чтото не допонимаю, как может байт быть например -109(в оригинале там 93Нех). Байт от 0 до 255 должен быть.
Почему эта функция так искажает?
К то нибудь сталкивался с такими чудесами.

Piligrim · 26.01.2007, 18:26

Она просто распространяет знак на старший байт. Ведь ты читаешь в integer. Сделай and 0x00ff.

Chip · 26.01.2007, 19:18

Спасибо за подсказку. Все заработало.

Chip · 26.01.2007, 20:41

Теперь могу выводить изображение побайтно из ресурса форматa bin. Следующий шаг сделать тоже самое из HTTP://

Chip · 28.01.2007, 01:11

Спасибо Pilgrim за предоставленную билиотеку для чтения картинок из HTTP http://www.boolean.name/showthread.php?t=2644
Сразу написал прогу с использованием этой библиотеки, можно смотреть индекс CY и PR сайтов:

program cy_pr;
uses im;
var
okCommand,exitCommand:command;
img:Image;
c:Integer;
url:String;
begin
repeat
removeCommand(okCommand);
clearForm;
okCommand := createCommand('OK', CM_OK, 1);
showForm;
setcolor(255,255,255);
fillRect(0, 0, getWidth, getHeight);
repaint;
addCommand(okCommand);
c:= formAddTextField('Введите URL без HTTP:// ','', 50, TF_URL);
while (getClickedCommand <> okCommand) do url:= FormGetText(c);
showCanvas;
setcolor(30,30,30);
drawtext('Идет загрузка.',(getWidth-getStringWidth('Идет загрузка.'))/2,(getHeight-getStringHeight('Идет загрузка.'))/2);
repaint;
img:=im.image_from_url('http://teploluxe.net/cy_pr.php?a=submit&code='+url);
drawImage(img,(getWidth-getImageWidth(img))/2, (getHeight-getImageHeight(img))/2);
repaint;
while (getKeyClicked = KE_NONE ) do delay(100);
until getClickedCommand =okCommand;
end.