Пример к библиотеки

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: ADMIN, Nextik

Форум » MidletPascal » Делимся! » Пример к библиотеки

Пример к библиотеки

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