‘Интернет’ Category
-
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 readingCategory Delphi, Интернет, Интерфейс | Tags:
-
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);
Category Delphi, Интернет | Tags:
-
Named Pipes
0Февраль 1, 2012 by admin
Именованные каналы (Named Pipes) — это объекты ядра, являющиеся средством межпроцессной коммуникации между сервером канала и одним или несколькими клиентами
keep readingCategory Интернет, Сеть | Tags:
-
Загрузка 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 readingCategory Delphi, Интернет, Интерфейс | Tags:
-
Результат 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 readingCategory Delphi, Интернет | Tags:
-
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 readingCategory Delphi, Интернет, Локальная сеть | Tags: