вывести остатка мегабайт своего интернета

[beegl]

привет, подскажите, как сохранить в HTML страницу результат, а потом загрузить нужные данные в виде MessageBox ??

так сохранил, а как в StringGrid загрузить?

вот исходник Intertelecom_Sources

procedure TForm1.Button2Click(Sender: TObject);
var
  HTMLDocument: IHTMLDocument2;
  PersistFile: IPersistFile;
begin
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;
  PersistFile  := HTMLDocument as IPersistFile;
  PersistFile.Save(StringToOleStr('D:\SavedFile.txt'), System.True);
end;
end.

сохраняю в txt файл, загружаю в Memo1 вывожу в MessageBox и какая-то ошибка кодировки, что не так?

[beegl]

Новая версия!

Список изменений:
+ изменил метод отображения отчёта;
* мелкие улучшения и доработки.




http://www.upload.ee/files/4395167/Intertelecom.zip.

[beegl]

как узнать, что окно (моей программы) минимизировано?

нашел

if IsIconic(Application.Handle) then

подскажите, как импортировать автоматически пароль и номер (если существует файл Cokie-и вход https://assa.intertelecom.ua/ru/login/) из браузера Оперы, Mozilla Firefox или других (файл Cokie) и добавить из Edit1 и Edit2 ?

[beegl]

подскажите, как бы его под Линукс скомпилировать, читал статью Linux in Delphi, кто-то пробовал оформлять подобным образом?

[Alex11223]

Лучше уж лазарус взять по-моему.

[beegl]

Сообщение от Alex11223

Лучше уж лазарус взять по-моему.

да, скачал сегодня лазарус, не знаю как отключить отладчик, а то проект занимает 14 Мб, и не все компоненты смогу переделать под лазарус, это не очень сложно?? (и подскажите, как отключить дебуг)

[WinCoder]

beegl Ровно тот же вопрос вбить в гугле ни как?

[beegl]

подскажите, как заменить делфи-модули, т.к. Messages,Windows?

или какие надо модули подключить, чтоб скомпилировать проект в CrossKylix

например это:

if MessageBox(GetForegroundWindow(),'текст','тест Линукс',MB_YESNO or MB_ICONWARNING) = IDYES then

[Человек_Борща]

чтоб скомпилировать проект в CrossKylix

Забудь про этот мусор.
Ствишь Ubuntu, в ней ставишь Lazarus для Ubuntu, копируешь туда проект Lazarus'а и собираешь бинарник.

if MessageBox(GetForegroundWindow(),'т екст','тест Линукс',MB_YESNO or MB_ICONWARNING) = IDYES then

Никак. MassageBox сугубо Windows-фича. Используй MessageDlg вместо него.

[beegl]

привет, подскажите, как добавить издателя для системы безопасности, чтобы не появлялось это сообщение при первом запуске?