Коллеги, взываю о помощи!
Почти целый день сегодня ковырялся с созданием картинки из строки - ничего не получается.
Вот скажите, где я не прав? В чём ошибка?
program ImageDemo;
uses im;
var s:string;
i:integer;
img:image;
conn: http;
begin
{
// если так делать, то всё работает
img:=Image_From_URL('http://mad-love.ru/pic/lficon_reg.png');
drawImage(img,10,10);
repaint;
delay(2000);
}
// а вот так - совсем не работает. :(
if not OpenHttp(conn, 'http://mad-love.ru/pic/lficon_reg.png') then Halt;
SetHttpMethod(conn, GET);
if SendHttpMessage(conn) <> 200 then Halt;
s:=GetHttpResponse(conn);
CloseHttp(conn);
img:=Image_From_string(s);
drawImage(img,10,10);
repaint;
delay(2000);
end.