В memo список url-ов. Нужно с помощью idhttp зайти по очереди — сначала на первый url, если соединение есть, то останавливаемся, если не соединило — берем второй url и так до конца. Как реализовать?

саша40

var

i: integer;

url: string;

begin

for i:=0 To Memo1.Lines.Count-1 Do

begin

url:=memo1.lines.strings;

idhttp1.host:=url;

idhttp1.connect;

if idHTTP1.Connected=false then

ListBox1.Items.Add(inttostr(i) + '-недоступен')

else

ListBox1.Items.Add(inttostr(i) + '-доступен');

idHttp1.Disconnect;

end;

ShowMessage('Готово');

end;

Пост написан при поддержке портала All4os.ru — универсальный портал об Операционных системах. Он создан для всех пользователей персональных компьютеров и других электронных устройств нуждающихся в качественном программном обеспечении, доступным по этой ссылке, а также в хорошем совете по его использованию.

тема на форуме

Как узнать версию уже скомпилированного exe файла?

Yurk@

я пользуюсь короткой версией:

function GetFileVersion(FileName: string; var VerInfo : TVSFixedFileInfo): boolean;

var

InfoSize, puLen: DWORD;

Pt, InfoPtr: Pointer;

begin

InfoSize := GetFileVersionInfoSize( PChar(FileName), puLen );

FillChar(VerInfo, SizeOf(TVSFixedFileInfo), 0);

if InfoSize > 0 then

begin

GetMem(Pt,InfoSize);

GetFileVersionInfo( PChar(FileName), 0, InfoSize, Pt);

VerQueryValue(Pt,'\',InfoPtr,puLen);

Move(InfoPtr^, VerInfo, sizeof(TVSFixedFileInfo) );

FreeMem(Pt);

Result := True;

end

else

Result := False;

end;

function ShowVersion(FileName:string):string;

var

VerInfo : TVSFixedFileInfo;

begin

if GetFileVersion(FileName, VerInfo) then

Result:=Format('%u.%u.%u.%u',[HiWord(VerInfo.dwProductVersionMS), LoWord(VerInfo.dwProductVersionMS),

HiWord(VerInfo.dwProductVersionLS), LoWord(VerInfo.dwProductVersionLS)])

else

Result:='------';

end;

1С:Предприятие — это (одновременно) и технологическая платформа, и пользовательский режим работы. Технологическая платформа предоставляет объекты (данных и метаданных) и механизмы управления объектами. Объекты (данные и метаданные) описываются в виде конфигураций. При автоматизации какой-либо деятельности составляется своя конфигурация объектов, которая и представляет собой законченное прикладное решение. Конфигурация создаётся в специальном режиме работы программного продукта под названием «Конфигуратор», затем запускается режим работы под названием «1С:Предприятие», в котором пользователь получает доступ к основным функциям, реализованным в данном прикладном решении (конфигурации).

купить 1с бухгалтерия базовая версия
тема на форуме

(читать всё…)

Есть база данных в Excel более 7 000 сток и 20 столбцов, нужно что бы остались только строки «разные». Стандартными средствами Excel не получается, типа удалить дубликаты, впр и тд. Потому что нужно в базе нужно удалить и оригиналы и дубликаты, остались строки с не совпадающими значениями. (читать всё…)

необходимо чтобы в ячейке допустим А1 листа2 создавалось примечание со значением из ячейки А1 на листе1 при изменении значения данной ячейки

Т.е. есть два листа (лист1 и лист2).
В листе 1 в ячейке А1 записывается фио покупателя товара
Необходимо чтобы в ячейке А1 на листе2 появилось примечание с фио покупателя которое написано в ячейке А1 листа 1

В примере приведены только по одной ячейке, но в действительности необходима проверка в диапозоне. Т.е. на листе 1 меняются ячейка от А1 до А5
И на листе 2 должны появляться примечания в ячейках от А1 до А5 в зависимости от того какая ячейка была изменена на листе 1. (читать всё…)

Мне необходим макрос, который находит повторяющийся текст при его вводе и выводит окно предупреждения (читать всё…)

Есть график с произвольным количеством кривых на нем. Перед началом обработки график нужно очистить от всех данных, чтобы потом внести новые. (читать всё…)

В 21 веке языки программирования имеют тенденцию очень быстро появляться и так же быстро исчезать . Особенно это касаеться языков и технологий небезывестной компании Microsoft. Получаеться так что гиганты ИТ тндустрии заявляют о зарождении новой технологии которая в будущем должна заменить все существующие аналоги и стать единой базовой платформой для всех решений данной области (например веб , десктоп или мобильные приложения). (читать всё…)

Имеется ListBox, в который загружается список файлов и в конце файла [0] или [1] — это параметр. В зависимости от параметра строка либо зеленая либо красная. У меня стоит сейчас CASE INDEX OF на 30 строк в котором проверка. Естественно если больше 30-ти строк то те не окрашиваются. Как сделать это правильно через цикл? (читать всё…)

В отчете есть поле «ПаспортныеДанныеПредставителя» . Как сделать, чтобы в этом поле данные вписывались, если студенту нет 16. (читать всё…)