Еще вопрос а как загрузить image из ресурса?
program CY;
var
i:integer;
url : string;
cn : http;
result : String;
begin
url := 'http://www.teploluxe.net/cy_pr.php?a=submit&code=voxtel.net.ru';
if OpenHttp(cn, url) then
begin
SetHttpMethod(cn, GET);
i := sendHttpMessage(cn);
result := getHttpResponse(cn);
CloseHttp(cn);
end; else halt;
//***************************
Здесь нужно проконвертировать result что то типа StringToImage
Кто делал? Подскажите.
А то ссылка которую дал здесь Pilgrim не пашет
//***************************
end.
|