Вопрос № 131211: Как в Delphi 7 получить html-код странички в интернете? Желательно не загружать страничку, а её код записать в файл или переменную....Вопрос № 131348: Здравствуйте, пишу программу:
на форме многострочное поле и кнопка с картинкой ок, выводящая в много строчное поле таблицу перевода километров в мили от 1 до 10 км, одна миля равна 1,603 км.
Написал так:
procedure TForm1.BitBtn1Click...
Вопрос № 131.211
Как в Delphi 7 получить html-код странички в интернете? Желательно не загружать страничку, а её код записать в файл или переменную.
Отвечает: Raptor3
Здравствуйте, Марков Александр Сергеевич!
Вопрос канечно странно звучит - "не загружать страницу"
1. TWebrowser - на основе IE и представляет собой "браузер" - скорее всего это и значит загружать страницу
2. TIdHttp - c палитры Indy Client - удобный и быстрый - его метод Get - возвращает как раз код в формате строки или потока - и то и другое можно писать в файл
--------- Программист - это человек который решает проблему, о которой вы не знаете, способом который вы не понимаете
Ответ отправил: Raptor3 (статус: 7-ой класс)
Ответ отправлен: 09.04.2008, 05:55 Оценка за ответ: 5
Отвечает: PavelGM
Здравствуйте, Марков Александр Сергеевич!
С помощью TClientSocket и команды GET HTTP-протокола. В приложении пример из работающего кода.
Приложение:
Ответ отправил: PavelGM (статус: Студент)
Ответ отправлен: 09.04.2008, 10:26 Оценка за ответ: 4 Комментарий оценки: Что-то больно сложно для такой задачки
Вопрос № 131.348
Здравствуйте, пишу программу:
на форме многострочное поле и кнопка с картинкой ок, выводящая в много строчное поле таблицу перевода километров в мили от 1 до 10 км, одна миля равна 1,603 км.
Написал так:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
m,k:real;
begin
m:=1.603;
memo1.Lines.Add(1*m);
end;
И пишет ошибку мне про несовместимые типы Integer and Extended, пробовал я писать inttostr(1*m) и strtoint, ничего не получилось.
Как правильно написать?
Отвечает: Sergiu
Здравствуйте, Исаак Моисеевич!
rocedure TForm1.BitBtn1Click(Sender: TObject);
var
m,k:real;
begin
m:=1.603;
memo1.Lines.Add(floattostr(1*m));
end;
Ответ отправил: Sergiu (статус: 2-ой класс)
Ответ отправлен: 09.04.2008, 15:47 Оценка за ответ: 5
Отвечает: Genia007
Здравствуйте, Исаак Моисеевич!
Вам нужно исправить код вот так:
procedure TForm1.Button1Click(Sender: TObject);
var
m,k:real;
begin
m:=1.603;
memo1.Lines.Add(FloatToStr(1 * m));
end;
У меня нормально работает
Ответ отправил: Genia007 (статус: Студент)
Ответ отправлен: 11.04.2008, 17:29 Оценка за ответ: 5
