Необходимо подключиться к камере №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
передавать текст между пользователями сети.

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

Как переделать 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

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

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

На форме лежат StringGrid (1 фиксированная строка + 1 пустая, 3 столбца), 3 Edit’a и Кнопка. По нажатию кнопки в Грид нужно записать содержимое Едитов (соответственно к каждой ячейке свой Эдит). При следующем нажатии, необходимо добавить строку, и записать новые значения из Эдитов, и так далее… Как это можно реализовать ?

DenProx

var x,y : integer;

begin

 y := RzStringGrid1.RowCount -1;

 x:=0;

 RzStringGrid1.Cells[x,y]:= IntToStr(RzStringGrid1.RowCount -1);

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit1.Text;

 inc(x);

 RzStringGrid1.Cells[x,y] := Edit2.Text;

RzStringGrid1.RowCount := RzStringGrid1.RowCount + 1;

y:=0;

Корпусная мебель оптом от российского производителя.

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

Есть у меня своя программа. И есть некоторая сторонняя программа, которая имеет несколько возможных параметров запуска. Так вот я запускаю эту стороннюю программу через shellexecute и передаю туда нужные параметры запуска.
На самом деле эти параметры запуска «секретные», там пароли, коды и всё такое, которые посторонние люди знать не должны, но люди пользуясь сторонним софтом эти параметры выдирают. Можно ли после запуска программы их стереть, как будто я запускал программу без каких-либо параметров запуска?

Anton911

memoffset = $85004; // смещение указателя на адрес где параметры от kernel32.dll

procedure DetectCode;

  var

    wBuff: Array[0..350] of Char;

    sBuff,tBuff:String;

    point_addr, kernelBase:DWORD;

    wHandle, ProcessID, pHandle, BytesCount: cardinal;

    i:Integer;

begin

 Form1.Console.Clear;

 pHandle := 0;

 wHandle := 0;

 kernelBase := GetModuleHandle(PWideChar('Kernel32.dll'));

 ShellExecute(0,'Open', PWideChar(ExtractFilePath(ParamStr(0)) + 'proga.exe'),

                PWideChar(GetParam), nil, SW_SHOWNORMAL);

 while wHandle = 0 do wHandle := IsProgRun;

 if wHandle  0 then

  begin

   GetWindowThreadProcessId(wHandle, @ProcessID);

   pHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);

   if not ReadProcessMemory(pHandle, Pointer(kernelBase + memoffset), @point_addr, sizeof(point_addr), BytesCount) then

   Form1.Console.Lines.Add('Не могу получить адресс указателя на смещение');

   {}

   sBuff := wBuff;

   FillChar(wBuff, SizeOf(wBuff), #0);

   tBuff := Copy(sBuff, 1, Pos('-password=', sBuff) - 1);

   Delete(sBuff, 1, Pos('-password=', sBuff) - 1);

   if Pos(' ', sBuff)  0 then

    begin

     Delete(sBuff,1, Pos(' ', sBuff));

     tBuff := tBuff + sBuff;

    end;

   for i := 0 to Length(tBuff) - 1 do

    begin

     wBuff := tBuff;

    end;

   if not WriteProcessMemory(pHandle, Pointer(point_addr), @wBuff, sizeof(wBuff), BytesCount) then

    Form1.Console.Lines.Add('Не могу внедриться в программу');

 end;

end;

Пеллетные котлы Kostrzewa — автоматические твердотопливные котлы с ёмкостью бункера обеспечивающего непрерывную работу — 1 неделю и больше. Автоматический розжиг и модуляция процесса горения от 20% до 100%.

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

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

Нужно разработать программу записи звукового файла с использованием TMediaPlayer, помогите с кодом.

misher

Взято из Delphi World

procedure TForm1.btRecordClick(Sender: TObject);

begin

  with Media do

  begin

    { Set FileName to the test.wav file to }

    { get the recording parameters. }

    FileName := 'd:\test.wav';

    { Open the device. }

    Open;

    { Start recording. }

    Wait := False;

    StartRecording;

  end;

end;

procedure TForm1.btStopClick(Sender: TObject);

begin

  with Media do

  begin

    { Stop recording. }

    Stop;

    { Change the filename to the new file we want to write. }

    FileName := 'd:\new.wav';

    { Save and close the file. }

    Save;

    Close;

  end;

end;

Пост написан при поддержке ooo-bioterm.ru

Сервисный центр по установке отопительного оборудования тут — http://ooo-bioterm.ru

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