forum.boolean.name - Чудеса да и только.

forum.boolean.name (http://forum.boolean.name/index.php)

- Основной форум (http://forum.boolean.name/forumdisplay.php?f=49)

- - Чудеса да и только. (http://forum.boolean.name/showthread.php?t=2516)

Чудеса да и только.

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

Re: Чудеса да и только.

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

Re: Чудеса да и только.

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

Re: Чудеса да и только.

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

Re: Чудеса да и только.

Спасибо 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.