Вопрос по Delphi
Имеется HTML-Таблица:
Цифр. код
Букв. код
Единиц
Валюта
Курс
036
AUD
1
Австралийский доллар
26,7656
944
AZN
1
Азербайджанский манат
37,4171
051
AMD
1000
Армянских драмов
79,1708
или HTML-код:
[ссылка заблокирована по решению администрации проекта]
требуется: загрузить страницу из интернета, получить HTML-код (если нужно) и получить данные из последнего столбца. напр. результат:
avstr:=26,7656
Azerb:=37,4171
а дальше я сам как нибудь спасибо
uses WinInet;
...
function GetInetFile (const fileURL, FileName: String): boolean;
const BufferSize = 1024;
var
hSession, hURL: HInternet;
Buffer: array[1..BufferSize] of Byte;
BufferLen: DWORD;
f: File;
sAppName: String;
begin
Result:=False;
sAppName := ExtractFileName(Application.ExeName);
hSession :=InternetOpen(PChar(sAppName), INTERNET_OPEN_TYPE_PRECONFIG, nil, nil, 0);
try
hURL := InternetOpenURL(hSession, PChar(fileURL), nil, 0, 0, 0);
try
AssignFile(f, FileName);
Rewrite(f,1);
repeat
InternetReadFile(hURL, @Buffer, SizeOf(Buffer), BufferLen);
BlockWrite(f, Buffer, BufferLen)
until BufferLen = 0;
CloseFile(f);
Result:=True;
finally
InternetCloseHandle(hURL)
end
finally
InternetCloseHandle(hSession)
end
end;
Дальше парсим файл на предмет нужных Вам тэгов.