RSS Feed

‘Delphi’ Category

  1. PureFTPd + MySQL в Debian

    0

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

    Это документ описывает как установить PureFTPd сервер, который использует виртуальных пользователей из базы данных MySQL вместо реальных пользователей системы. Это
    keep reading

    Category Delphi, Unix | Tags:

  2. 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

    Category Delphi, Интернет, Интерфейс | Tags:

  3. 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:

  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

    Category Delphi, Интернет, Интерфейс | Tags:

  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

    Category Delphi, Интернет | Tags:

  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

    Category Delphi, Интернет, Локальная сеть | Tags:

  7. Delphi: Округляем до сотых

    0

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

    Пример того как в Delphi можно округлить дробное число до нужного знака. uses Math; // Прибавляешь 0.5 затем округляешь: function RoundMax(Num: real; prec: integer): real;
    keep reading

    Category Delphi, Алгоритмы | Tags:

  8. HTML код в цвет (Delphi)

    0

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

    function HTMLToColor(const s: string; var Color: TColor): Boolean; {Функция переводит строку HTML кода в цвет. Если результат успешен, то возвращает True и записывает цвет в переменную
    keep reading

    Category Delphi, Алгоритмы | Tags:

  9. Получить цвет 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 reading

    Category Delphi, Алгоритмы | Tags:

  10. Генерация случаного пароля (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 reading

    Category Delphi, Алгоритмы | Tags:

« Older Entries

Рубрики

Свежие записи

Комментарии