RSS Feed

‘Интернет’ Category

  1. Delphi: делаем скриншот сайта

    0

    Февраль 1, 2012 by admin

    Данная функция позволяет сделать скриншот сайта с помощью IWebBrower procedure generateJPEGfromBrowser(browser: iWebBrowser2; jpegFQFilename: String; srcHeight: Integer; srcWidth: Integer; tarHeight: Integer; tarWidth: Integer); var sourceDrawRect : TRect;
    keep reading


  2. Delphi: Открыть сайт в Internet Explorer

    0

    Февраль 1, 2012 by admin

    Данный пример показывает как запустить Internet Explorer с открыванием какого-либо URL. Для работы требуется модуль ShellAPI ShellExecute(TForm(Owner).Handle,nil,PChar(‘http://codesources.net/’), nil, nil,SW_SHOWNORMAL);


  3. Named Pipes

    0

    Февраль 1, 2012 by admin

    Именованные каналы (Named Pipes) — это объекты ядра, являющиеся средством межпроцессной коммуникации между сервером канала и одним или несколькими клиентами
    keep reading


  4. Загрузка HTML в IWebBrowser (Delphi)

    0

    Февраль 1, 2012 by admin

    uses ActiveX; procedure WB_LoadHTML(WebBrowser: TWebBrowser; HTMLCode: string); var sl: TStringList; ms: TMemoryStream; begin WebBrowser.Navigate(‘about:blank’); while WebBrowser.ReadyState < READYSTATE_INTERACTIVE do Application.ProcessMessages; if Assigned(WebBrowser.Document) then begin sl := TStringList.Create;
    keep reading


  5. Результат HTTP-запроса (Delphi)

    0

    Февраль 1, 2012 by admin

    uses IdMultipartFormData; { …. } procedure TForm1.Button1Click(Sender: TObject); var data: TIdMultiPartFormDataStream; begin data := TIdMultiPartFormDataStream.Create; try { add the used parameters for the
    keep reading


  6. Delphi: Как узнать свой IP

    0

    Февраль 1, 2012 by admin

    В Uses прописываем модуль WinSock function GetLocalIP:string; var WSVer:integer; wsaData: TWSAData; P: PHostEnt; Buf: array [0..127] of Char; begin WSVer:=$101; if WSAStartup(WSVer, wsaData) = 0 then begin if GetHostName(@Buf, 128) = 0 then begin
    keep reading