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

Вобщем нужно «заутэфить» Memo. (читать всё…)

Необходимо подключиться к камере №1 IP 192.168.1.34:12088. Как это сделать?

Aleksandr

Подключился с помощью браузера

var

a1, a2: variant;

 Doc : Variant;

 begin

  a1:=webbrowser1.oleobject.document.getelementbyid('Login_id');

  a1.value:='admin';

  a2:=webbrowser1.oleobject.document.getelementbyid('login_passwd');

  a2.value:='111111';
    Doc := WebBrowser1.OleObject.document;

    if TVarData(Doc).VDispatch = nil then begin

    ShowMessage('Документ не задан. Действие отменено.');

    Exit;

  end;
  Doc.parentWindow.on_Login();

Пеллетные камины и котлы испанского производства EcoForest

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

VIR1435

Скажите как программно можно узнать размер папки?

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

Я хочу чтобы в цикле перебирались поля объекта «класса» и в них присваивалось соответствующее значение с ассоциативного массива. (читать всё…)

Как отсортировать первую колонку по алфавиту в StringGrid, чтобы значения остались прежними?

pu4koff

Сортировка вызывается так:
GridSort(StringGrid1, 0);

procedure GridSort(StrGrid: TStringGrid; NoColumn: Integer);

var

  Line, PosActual: Integer;

  Row: TStringList;

  Renglon :TStringList;

begin

  Renglon := TStringList.Create;

  Row := TStringList.Create;

  for Line := 1 to StrGrid.RowCount-1 do

  begin

    PosActual := Line;

    Row.Assign(StrGrid.Rows[PosActual]);

    while True do

    begin

      if (PosActual = 0) or

         (Row.Strings[NoColumn] >= StrGrid.Cells[NoColumn,PosActual-1])

        then break;

      StrGrid.Rows[PosActual] := StrGrid.Rows[PosActual-1];

      Dec(PosActual);

    end;

    if (Row.Strings[NoColumn] < StrGrid.Cells[NoColumn,PosActual])

      then StrGrid.Rows[PosActual].Assign(Row);

  end;

  Row.Free;

  Renglon.Free;

end;

Австрийская компания iTap mobile выпускает RDP-клиенты — программы для подключения к настольному компьютеру Windows с мобильных устройств или компьютеров с другими операционными системами по протоколу удаленного рабочего стола. iTap mobile RDP для систем Mac или Linux предоставляет полный контроль и быстрый доступ к настольному компьютеру на платформе Windows отовсюду. iTap mobile поддерживает TS Gateway и является быстрым, безопасным и оптимизированным решением для дома и бизнес-нужд. Мощный RDP-клиент также сопровождается первоклассной технической поддержкой.

купить Itap-mobile RDP Client

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

Prod87

Подскажите пожалуйста, как с помощью TServerSocket и TClientSocket
передавать текст между пользователями сети.

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

7-е апреля, а за окном такое… Лет 30 назад 1-го мая уже купальный сезон открывали… Глобальное потепление во всем мире объявили? Про Приморье точно не забыли? Или может просто постапокалипсический пейзаж тоску нагоняет? (читать всё…)

Как переделать Delay, чтобы можно было в 10Mks выставить? Пробовал разные значения подставлять, но все равно в миллисекундах не получается.

raxp

procedure delay_microsec(val: int64);

var Freq, TimeImp, TimeImpNow, TimeElapsed: int64;

begin

 QueryPerformanceFrequency(Freq);

 QueryPerformanceCounter(TimeImp);

 repeat

  QueryPerformanceCounter(TimeImpNow);

  TimeElapsed:= ((TimeImpNow - TimeImp) * 1000000) div Freq;

 until TimeElapsed > val

end;

Пеллетные камины и котлы испанского производства EcoForest

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

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