Главная
Регистрация
Вход
Авторизироваться
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ADMIN, Nextik  
Пример к библиотеки
programmerДата: Суббота, 14.02.2009, 11:06 | Сообщение # 1
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
Пример к библиотеки загрузки изображений через инет.Админ там написал то что на sijboy не будет работать на самом деле там просто не работал сам пример.
program ImageDemo;
uses im;
var
i:string;
s:integer;
cmd:command;
exit:command;
begin
ShowForm;
s := FormAddTextField('Введите код города.', '', 20, TF_NUMERIC);
cmd := CreateCommand('Ок.', CM_OK, 1);
AddCommand(cmd);
repeat until GetClickedCommand = cmd;
i := FormGetText(s);
ShowCanvas;
drawImage(im.image_from_url('http://informer.gismeteo.ru/'+i+'-7.GIF'), 0, 0);
repaint;
exit := CreateCommand('Выход.', CM_OK, 1);
AddCommand(exit);
repeat until GetClickedCommand = exit;
end.

Прога показывает прогноз погоды.Для начала надо указать код города на gismeteo.ru
 
adminДата: Суббота, 14.02.2009, 11:11 | Сообщение # 2
Admin
Группа: Администраторы
Сообщений: 244
Награды: 2
Репутация: « 594 »
Статус: Offline
За пример пасибки, но я проверил пример через Midp - пашет. Я имею ввиду первИИ пример, стандар.
 
programmerДата: Суббота, 14.02.2009, 11:15 | Сообщение # 3
Умный
Группа: Проверенные
Сообщений: 599
Награды: 3
Репутация: « 111 »
Статус: Offline
Quote (ADMIN)
За пример пасибки, но я проверил пример через Midp - пашет. Я имею ввиду первИИ пример, стандар.

Тогда незнаю,у меня сиджбой работает с ним.В смысле с моим.Наверное сиджбой не грузит картинки без расширения dry


Сообщение отредактировал programmer - Суббота, 14.02.2009, 11:16
 
  • Страница 1 из 1
  • 1
Поиск: