 Разработка, производство и продажа радиоэлектронной аппаратуры  |
Требуется программист в Зеленограде
- обработка данных с датчиков; ColdFire; 40 тыс. e-mail:jobsmp@pochta.ru |
function ReadURL(fURL : WideString): WideString;
var
hInternet : pointer;
hConnect : pointer;
hRequest : pointer;Size : cardinal;
B : boolean;
Buff : ANSIString;
ReadedSize : cardinal;
I, L : cardinal;
begin
result := '';hInternet := OpenInternet('FDSC Informer');
hConnect := Connect(hInternet);
hRequest := NewRequest(fURL, hConnect);
if (NOT SendRequest(hRequest)) then
begin
// ShowBalloonHint('Error in FDSC Informer', 'FDSC Informer can not open Internet access', bitError);
// getlastError;
if hRequest <> nil then CloseURL(hRequest);
if hConnect <> nil then CloseURL(hConnect);
if hInternet <> nil then CloseURL(hInternet);
exit;
end;
SizeQuery(hRequest, Size);inc(Size);
SetLength(Buff, Size);B := false;
I := 1;
while true do
begin
DataAvailable(hRequest, L);
if L = 0 then break;
if (I + L) > Size then SetLength(Buff, I + L);
B := InternetReadFile(hRequest, @Buff[I], L, ReadedSize);
if NOT B then break;
inc(I, ReadedSize);
end;Buff[I] := #0;
CloseURL(hRequest);
CloseURL(hConnect);
CloseURL(hInternet);
{$Ifdef FILE_DEBUG_OUTPUT}
SetFile('tmp.txt', 'error');
{$ENDIF}
if B then
begin
result := WideString(Buff);
{$Ifdef FILE_DEBUG_OUTPUT}
SetFile('tmp.txt', result);
{$ENDIF}
end else result := '';
end;
Вопрос2. На картинке по ссылке видна раскраска дерева. Может кто смекнёт как можно в зависимости от уровня листка подобрать цвет фона. Т.е. цвет задаётся так - RGB(nR, nG, nB) - вместо nR, nG и nB - нужно написать выражение с участием Level, чтобы выглядело покрасивше и читабельно.
Вопрос3: С помощью какой функции можно поубирать или декодировать выражения типа
>и прочие, которые встречаются в html страницах? Темы у меня (видно внизу) не хорошо смотрятся без декодирования.
