‘Delphi’ Category
-
PureFTPd + MySQL в Debian
0Февраль 1, 2012 by admin
Это документ описывает как установить PureFTPd сервер, который использует виртуальных пользователей из базы данных MySQL вместо реальных пользователей системы. Это
keep reading
-
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:
-
Загрузка 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:
-
Delphi: Округляем до сотых
0Февраль 1, 2012 by admin
Пример того как в Delphi можно округлить дробное число до нужного знака. uses Math; // Прибавляешь 0.5 затем округляешь: function RoundMax(Num: real; prec: integer): real;
keep readingCategory Delphi, Алгоритмы | Tags:
-
HTML код в цвет (Delphi)
0Февраль 1, 2012 by admin
function HTMLToColor(const s: string; var Color: TColor): Boolean; {Функция переводит строку HTML кода в цвет. Если результат успешен, то возвращает True и записывает цвет в переменную
keep readingCategory Delphi, Алгоритмы | Tags:
-
Получить цвет TColor в HTML-формате (Delphi)
0Февраль 1, 2012 by admin
Представление TColor в HTML-формате function gethtmlcolor(cl: tcolor; isbackcolor: boolean): string; var rgbcolor: tcolorref; begin if isbackcolor then result := ’bg’ else result := »; rgbcolor := colortorgb(cl); result
keep readingCategory Delphi, Алгоритмы | Tags:
-
Генерация случаного пароля (Delphi)
0Февраль 1, 2012 by admin
function RandomPassword(PLen: Integer): string; var str: string; begin Randomize; //string with all possible chars str := ’abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ’; Result := »; repeat Result := Result + str[Random(Length(str)) + 1]; until (Length(Result) =
keep readingCategory Delphi, Алгоритмы | Tags: