http://codesources.net Сайт о программировании Fri, 22 May 2009 15:47:52 +0000 http://backend.userland.com/rss092 en Ниже приведены листинг функци для перекодирования текста из кодировки KOI8-R в кодировку WINDOWS-1251 и листиг функции для перекодирования текста из кодировки WINDOWS-1251 в кодировку KOI8-R. type TConvertChars = array [#128..#255] of char; const Win_KoiChars: TConvertChars = ( #128,#129,#130,#131,#132,#133,#134,#135,#136,#137,#060,#139,#140,#141,#142,#143, #144,#145,#146,#147,#148,#169,#150,#151,#152,#153,#154,#062,#176,#157,#183,#159, #160,#246,#247,#074,#164,#231,#166,#167,#179,#169,#180,#060,#172,#173,#174,#183, #156,#177,#073,#105,#199,#181,#182,#158,#163,#191,#164,#062,#106,#189,#190,#167, #225,#226,#247,#231,#228,#229,#246,#250,#233,#234,#235,#236,#237,#238,#239,#240, #242,#243,#244,#245,#230,#232,#227,#254,#251,#253,#154,#249,#248,#252,#224,#241, #193,#194,#215,#199,#196,#197,#214,#218,#201,#202,#203,#204,#205,#206,#207,#208, #210,#211,#212,#213,#198,#200,#195,#222,#219,#221,#223,#217,#216,#220,#192,#209); Koi_WinChars: TConvertChars = ( #128,#129,#130,#131,#132,#133,#134,#135,#136,#137,#138,#139,#140,#141,#142,#143, #144,#145,#146,#147,#148,#149,#150,#151,#152,#153,#218,#155,#176,#157,#183,#159, #160,#161,#162,#184,#186,#165,#166,#191,#168,#169,#170,#171,#172,#173,#174,#175, #156,#177,#178,#168,#170,#181,#182,#175,#184,#185,#186,#187,#188,#189,#190,#185, #254,#224,#225,#246,#228,#229,#244,#227,#245,#232,#233,#234,#235,#236,#237,#238, #239,#255,#240,#241,#242,#243,#230,#226,#252,#251,#231,#248,#253,#249,#247,#250, #222,#192,#193,#214,#196,#197,#212,#195,#213,#200,#201,#202,#203,#204,#205,#206, #207,#223,#208,#209,#210,#211,#198,#194,#220,#219,#199,#216,#221,#217,#215,#218); function Win_KoiConvert(const St: string): string; var i: integer; begin Result:=St; for i:=1 to Length(St) do if St[i]>#127 then Result[i]:=Win_KoiChars[St[i]]; end; function Koi_WinConvert(const St: string): ... http://codesources.net/delphi-perevodirovanie-koi8-r-v-windows-1251-i-obratno/ Пример отправки POST-запроса с помощью компонента IWebBrowser. procedure TForm1.PostWithWebBrowser(PostString: string; URL: OleVariant); var Data: Pointer; PostData: OleVariant; Flags, TargetFrame, Headers: OleVariant; begin PostData := VarArrayCreate([0, Length(PostString) - 1], varByte); Data := VarArrayLock(PostData); try Move(PostString[1], Data^, Length(PostString)); finally VarArrayUnlock(PostData); end; Flags := EmptyParam; TargetFrameName := EmptyParam; Headers := EmptyParam; WebBrowser1.Navigate2(URL, Flags, TargetFrame, PostData, Headers); end; http://codesources.net/delphi-iwebbrowser-delaem-zapros-post/ В 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 P := GetHostByName(@Buf); if P <> nil then result:=iNet_ntoa(PInAddr(p^.h_addr_list^)^); end; WSACleanup; end; end; http://codesources.net/delphi-kak-uznat-svoy-ip/ Решение ищется просто: Server:#cd /etc/apache2 Server:/etc/apache2# cat apache2.conf |grep Limit SecRequestBodyLimit 131072 SecRequestBodyInMemoryLimit 131072 SecResponseBodyLimit 524288 Server:/etc/apache2# Нас интерсует как раз SecRequestBodyLimit, открываем конфигурационный файл Apache2 server:/etc/apache2# nano apache2.conf Выставляем свое значение для SecRequestBodyLimit , к примеру, на класс выше: SecRequestBodyLimit 1310720 Сохраняем файл, перезагружаем Apache2: server:/etc/apache2# /etc/init.d/apache2 restart Все. http://codesources.net/apache-2-ispravlyaem-oshibku-413-request-entity-too-large/ В конференции я часто натыкался на вопросы типа – "Как добавить свой пункт меню в контекстное меню IE, как это делает ReGet", "Как запретить появление контекстного меню в TwebBrowser” или "Как показать свое меню вместо стандартного". А вот ответов в большинстве случаев не было, или они советовали попробовать другие компоненты. ... http://codesources.net/delphi-menyu-v-web-brauzere-iwebbroswer/   Создайте на форме DataSource1, Table1, DataSource2, Table2, DBGrid1. Table1 и Table2 свяжите со своей базой данных. DataSource1 и DataSource2 свяжите соответственно с Table1 и Table2. DBGrid1 свяжите с DataSource1 Table2 и DataSource2 нужны для доступа к какой-нибудь ячейке. Другой способ без их использования: при отрисовке значений ячеек (соответствующее событие), необходимо ... http://codesources.net/vyivod-hint-dlya-yacheyki-dbgrid/ CoolTrayIcon - компонент, название которого говорит само за себя. Компонент обладает большим количеством свойств для настройки поведения иконки: различные события щелчка мыши; поддержка меню popup; методы для сокрытия и показа основной формы; сворачивание формы в трей при минимизации; анимация иконки; интерактивные подсказки; конвертация точечных рисунков в иконки; предварительный просмотр при экспериментировании; компонент может использоваться в службе NT; восстанавливает иконку при аварийном ... http://codesources.net/delphi-cooltrayicon-komponent-dlya-ikonki-i-opovescheniy-v-tree-sysytem-tray/   procedure TForm1.FormCreate(Sender: TObject); begin {Высоту combobox'а не изменишь, так что вместо combobox'а будем изменять высоту строки grid'а !} StringGrid1.DefaultRowHeight := ComboBox1.Height; {Спрятать combobox} ComboBox1.Visible := False; ComboBox1.Items.Add('Delphi Kingdom'); ComboBox1.Items.Add('Королевство Дельфи'); end; procedure TForm1.ComboBox1Change(Sender: TObject); begin {Перебросим выбранное в значение из ComboBox в grid} StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; ComboBox1.Visible := False; StringGrid1.SetFocus; end; procedure TForm1.ComboBox1Exit(Sender: TObject); begin {Перебросим выбранное в значение из ComboBox в grid} StringGrid1.Cells[StringGrid1.Col, StringGrid1.Row] := ComboBox1.Items[ComboBox1.ItemIndex]; ComboBox1.Visible := ... http://codesources.net/delphi-combobox-v-yacheyke-stringgrid/ Вообще, ini-файлы – очень удобная вещь. В ini-файл можно записать практически всё, хотя создан он в основном для хранения настроек программы. Структура ini-файла очень проста: весь файл поделён на секции. В секциях содержатся ключи и эти ключи хранят значения. Вот пример открытого в блокноте ini-файла: [Form properties] Width=450 Height=320 Left=10 Top=35 [Application properties] Dir=C:\Мои документы\Musuc Date=28.09.02 В этом ини-файле, как ... http://codesources.net/rabota-s-ini-faylami-v-delphi/ Вещественные числа, в отличие от целых чисел, хранят лишь приблизительное значение, и за рубежом используются в основном для хранения научных данных. Для хранения денежных величин обычно используются целочисленные типы данных. Однако integer как правило не хватает для хранения наших денег (особенно остро стоит эта проблема в турции, где зарплату получают ... http://codesources.net/delphi-okruglenie-drobnyih-chisel/