Это интересно
При помощи данной функции можно скачать файл любого типа из Интернета: uses WinInet; … function GetInetFile (const fileURL, FileName: String): boolean; const BufferSize = 1024; var hSession, hURL: HInternet; Buffer:…
При помощи данной функции на языке программирования Delphi можно получить html-код страницы из компонента TWebBrowser. uses SHDocVw, ActiveX; … function WB_GetHTMLCode(WebBrowser: TWebBrowser; ACode: TStrings): Boolean; var ps: IPersistStreamInit; ss: TStringStream;…
При помощи данной функции, написанной на Delphi, можно вывести список удаленных сетевых подключений. uses Registry;…
При помощи данной процедуры, Написанной на языке Delphi, можно установить Proxy, через которую будет осуществляться…
Данная функция, написанная на языке программирования Delphi, возвращает URL активной страницы, открытой в web-браузере Opera или Netscape, а также заголовок окна браузера: Uses DdeMan; … function GetOperaURLandTitle: String; var DDE:…
Данная процедура на Delphi позволяет открыть ссылку в текущем окне браузера Internet Explorer. uses ddeman; … procedure GotoWebPage; var DDE : TDDECLientConv; URL : String; URLFired : Boolean; begin URL…
Реклама на радио давно признана относительно дешевым способом заявить о себе обширной аудитории радиослушателей. Совмещая несколько радиостанций, можно добиться высоких значений таких важных для расчета эффективности показателей, как «Share» и…
На расположенном выше изображении пример переведенного синсета (дерево гиперонимов). Представленные ниже базы сгенерированы автоматически. Переведено около половины синсетов (смысловых единиц), содержащих самые общеупотребимые слова. Описания синсетов остались на английском. Скачать…
Этой функцией можно копировать как каталоги, так и одиночные файлы: uses ShellApi; … procedure CopyAFile(const…
Данная процедура на Delphi позволяет попиксельно нарисовать круг (точнее окружность) на заданной канве: Procedure DrawCircle(CenterX,…
При помощи данной процедуры на Delphi можно узнать высоту и ширину картинки, сохраненной в формате PNG: function ReadMWord (f:TFileStream):word; type TMotorolaWord = record case byte of 0:(Value:word); 1:(Byte1, Byte2:byte); end;…
Данная функция на Delphi преобразовывает цветное изображение в черно-белое(оттенки серого): function CreateGrayBmp (Source: TBitmap): TBitmap; var Table: array[Byte] of TRGBQuad; I: Integer; begin Result := TBitmap.Create; with Result do begin…
//если ноль, то мышка не установлена Function CntMouseBut : Byte; begin Result := GetSystemMetrics(SM_CMOUSEBUTTONS); end;
Данная функция на Delphi позволяет преобразовать любой цвет в оттенок серого: function RgbToGray(Source: TColor): TColor; var Target: Byte; begin Target := Round((0.30 * GetRValue(Source)) + (0.59 * GetGValue(Source))+(0.11 * GetBValue(Source)));…
Данная функция на Delphi позволяет перевернуть изображение (повернуть картинку на 180 градусов): procedure FlipBitmapV(Bitmap: TBitmap);…