RusFAQ.ru: Программирование на Delphi

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 258
от 07.10.2005, 17:57

Вопрос № 27.095

Здравствуйте! У меня такой вопрос: Есть сеть. На одном компе в настройках IE указываю прокси и порт другоко компа (сервера). Как можно сделать Делфи приложение для другого компа (сервера), которое будет идентифицировать IP клиента и выдавать ему в браузер HTML страничку. Если можно, кусочек кода для наглядности. СПАСИБО.

Отправлен: 01.10.2005, 19:17 Вопрос задал: Мурник Роман (статус: 2-ой класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Bob Johnson Здравствуйте, Мурник Роман! Может быть тебе просто web-сервер надо написать? тогда не придется указывать настройки прокси, просто будешь набирать имя компьютера (сервера) в строке "адрес" IE? web сервер обычно работает на порте 80 и отвечает на HTTP запросы. исходники небольшого web сервера есть у меня на странице (правда он на С++). Или же можешь просто правильно апач настроить.

Ответ отправил: Bob Johnson (статус: Академик) Отправлен: 02.10.2005, 23:42

Вопрос № 27.112

Привет всем экспертам! Пишу небольшую программку для обработки email-писем. Программа получает данные из email-письма, сохранённого в файл (*.msg). С чтением данных проблем нет - использование обычных строковых функций. Но есть проблема с русскими кодировками. К примеру, прочитан заголовок: From: "=?koi8-r?B?4c7Uz84=?=" Понятно, что извлечь email (mailbox@mail.ru) и имя (=?koi8-r?B?4c7Uz84=?=) я могу без проблем. Но имя ведь нужно привести к нормальному виду (в данном случае - Антон). Как правило, письма бывают лишь в кодировках koi8-r и windows-1251. Подскажите, пожалуйста, как преобразовать эти комбинации символов в русский текст? Заранее благодарен!

Отправлен: 02.10.2005, 10:44 Вопрос задал: Ерёмин Андрей (статус: Практикант) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Delphin Здравствуйте, Ерёмин Андрей! Читай в приложении. Там 4 алгоритма. Если поможет не поленись поставить оценку 5 :) Приложение: Кодировка из Ansi в KOI8-R function ANSI2KOI8R(S: string): string; var Ansi_CODE, KOI8_CODE: string; i: integer; begin KOI8_CODE := 'бвчздецъйклмнопртуфхжигюыэящшьасБВЧЗДЕЦЪЙКЛМНОПРТУФХЖИГЮЫЭЯЩШЬАС—Ј'; ANSI_CODE := 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя№ё'; Result := S; for i := 1 to Length(Result) do if Pos(Result[i], ANSI_CODE) > 0 then Result[i] := KOI8_CODE[Pos(Result[i], ANSI_CODE)]; end; KOI8R -> WIN1251 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; Распознавание кодировки. Перекодировка. Алгоритм распознавания кодировки нужен для автоматического декодирования текста. Этот алгоритм основан на том, что некоторые буквы русского алфавита встречается очень часто, а некоторые редко. Поскольку этот способ статистический, то лучше всего он работает с большими текстами. type TCode = (win, koi, iso, dos); const CodeStrings: array [TCode] of string = ('win','koi','iso','dos'); procedure TForm1.Button1Click(Sender: TObject); var str: array [TCode] of string; norm: array ['А'..'я'] of single; code1, code2: TCode; min1, min2: TCode; count: array [char] of integer; d, min: single; s, so: string; chars: array [char] of char; c: char; i: integer; begin so := Memo1.Text; norm['А'] := 0.001; norm['Б'] := 0; norm['В'] := 0.002; norm['Г'] := 0; norm['Д'] := 0.001; norm['Е'] := 0.001; norm['Ж'] := 0; norm['З'] := 0; norm['И'] := 0.001; norm['Й'] := 0; norm['К'] := 0.001; norm['Л'] := 0; norm['М'] := 0.001; norm['Н'] := 0.001; norm['О'] := 0.001; norm['П'] := 0.002; norm['Р'] := 0.002; norm['С'] := 0.001; norm['Т'] := 0.001; norm['У'] := 0; norm['Ф'] := 0; norm['Х'] := 0; norm['Ц'] := 0; norm['Ч'] := 0.001; norm['Ш'] := 0.001; norm['Щ'] := 0; norm['Ъ'] := 0; norm['Ы'] := 0; norm['Ь'] := 0; norm['Э'] := 0.001; norm['Ю'] := 0; norm['Я'] := 0; norm['а'] := 0.057; norm['б'] := 0.01; norm['в'] := 0.031; norm['г'] := 0.011; norm['д'] := 0.021; norm['е'] := 0.067; norm['ж'] := 0.007; norm['з'] := 0.013; norm['и'] := 0.052; norm['й'] := 0.011; norm['к'] := 0.023; norm['л'] := 0.03; norm['м'] := 0.024; norm['н'] := 0.043; norm['о'] := 0.075; norm['п'] := 0.026; norm['р'] := 0.038; norm['с'] := 0.034; norm['т'] := 0.046; norm['у'] := 0.016; norm['ф'] := 0.001; norm['х'] := 0.006; norm['ц'] := 0.002; norm['ч'] := 0.011; norm['ш'] := 0.004; norm['щ'] := 0.004; norm['ъ'] := 0; norm['ы'] := 0.012; norm['ь'] := 0.012; norm['э'] := 0.003; norm['ю'] := 0.005; norm['я'] := 0.015; Str[win] := 'АаБбВвГгДдЕеЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя'; Str[koi] := 'юЮаАбБцЦдДеЕфФгГхХиИйЙкКлЛмМнНоОпПяЯрРсСтТуУжЖвВьЬыЫзЗшШэЭщЩчЧъЪ'; Str[iso] := 'РрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяа№бёвђгѓдєеѕжізїијйљкњлћмќн§оўпџ'; Str[dos] := 'Ђ ЃЎ‚ўѓЈ"¤…Ґ†¦‡§€Ё‰©ЉЄ‹"ЊЌЋ®ЏЇђа'б'в"г"дoе-ж-зи™йљк›лњмќнћоџпз?и™йљк›лњмќнћоџп'; for c := #0 to #255 do Chars[c] := c; min1 := win; min2 := win; min := 0; s := so; fillchar(count, sizeof(count), 0); for i := 1 to Length(s) do inc(count[s[i]]); for c := 'А' to 'я' do min := min + sqr(count[c] / Length(s) - norm[c]); for code1 := low(TCode) to high(TCode) do begin for code2 := low(TCode) to high(TCode) do begin if code1 = code2 then continue; s := so; for i := 1 to Length(Str[win]) do Chars[Str[code2][i]] := Str[code1][i]; for i := 1 to Length(s) do s[i] := Chars[s[i]]; fillchar(count, sizeof(count), 0); for i := 1 to Length(s) do inc(count[s[i]]); d := 0; for c := 'А' to 'я' do d := d + sqr(count[c] / Length(s) - norm[c]); if d < min then begin min1 := code1; min2 := code2; min := d; end; end; end; s := Memo1.Text; if min1 <> min2 then begin for c := #0 to #255 do Chars[c] := c; for i := 1 to Length(Str[win]) do Chars[Str[min2][i]] := Str[min1][i]; for i := 1 to Length(s) do s[i] := Chars[s[i]]; end; Form1.Caption := CodeStrings[min2] + ' ' + CodeStrings[min1]; Memo2.Text := s; end; Перекодировка текста из Win кодировки в КОИ-8 и обратно const Koi: array[0..66] of Char = ('T', 'Ё', 'ё', 'А', 'Б', 'В', 'Г', 'Д', 'Е', 'Ж', 'З', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Р', 'С', 'Т', 'У', 'Ф', 'Х', 'Ц', 'Ч', 'Ш', 'Щ', 'Ъ', 'Ы', 'Ь', 'Э', 'Ю', 'Я', 'а', 'б', 'в', 'г', 'д', 'е', 'ж', 'з', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'р', 'с', 'т', 'у', 'ф', 'х', 'ц', 'ч', 'ш', 'щ', 'ъ', 'ы', 'ь', 'э', 'ю', 'я'); Win: array[0..66] of Char = ('ё', 'Ё', 'T', 'ю', 'а', 'б', 'ц', 'д', 'е', 'ф', 'г', 'х', 'и', 'й', 'к', 'л', 'м', 'н', 'о', 'п', 'я', 'р', 'с', 'т', 'у', 'ж', 'в', 'ь', 'ы', 'з', 'ш', 'э', 'щ', 'ч', 'ъ', 'Ю', 'А', 'Б', 'Ц', 'Д', 'Е', 'Ф', 'Г', 'Х', 'И', 'Й', 'К', 'Л', 'М', 'Н', 'О', 'П', 'Я', 'Р', 'С', 'Т', 'У', 'Ж', 'В', 'Ь', 'Ы', 'З', 'Ш', 'Э', 'Щ', 'Ч', 'Ъ'); function WinToKoi(Str: string): string; var i, j, Index: Integer; begin Result := ''; for i := 1 to Length(Str) do begin Index := -1; for j := Low(Win) to High(Win) do if Win[j] = Str[i] then begin Index := j; Break; end; if Index = -1 then Result := Result + Str[i] else Result := Result + Koi[Index]; end; end; function KoiToWin(Str: string): string; var i, j, Index: Integer; begin Result := ''; for i := 1 to Length(Str) do begin Index := -1; for j := Low(Win) to High(Win) do if Koi[j] = Str[i] then begin Index := j; Break; end; if Index = -1 then Result := Result + Str[i] else Result := Result + Win[Index]; end; end; --------- Обращаться в ICQ: 66550088 (Ally) или E-Mail: delphinster@gmail.com

Ответ отправил: Delphin (статус: Студент) Отправлен: 02.10.2005, 11:04 Оценка за ответ: 5 Комментарий оценки: Думаю, это мне поможет. З.Ы. А оценки я _всегда_ ставлю. Можете даже поискать рассылки с моими вопросами - на 95% ответов ставлю. Не ставлю только тогда, когда ответ либо слишком плох, либо не знаю, что ставить. :) Получай пятёрку!

Отвечает: Warrior Здравствуйте, Ерёмин Андрей! Приходит программист к окулисту. Тот его усаживает напротив таблицы, берет указку: - Читайте! - "БНОПНЯ"... Доктор, у вас что-то не то с кодировкой! Много вопросов решает Delphi World. Программа Delphi World 6.0 является системой управления архивом статей. В состав программы входят архивы с 5000 статей по самым различным разделам программирования в среде Delphi, загрузить их можно с web-сайта проекта http://delphiworld.narod.ru. Но многое надо перепроверять. Сам постоянно роюсь в этих статьях. По перекодировкам там есть 8 статей. Некоторые ты уже получил :) Конечно же не на все вопросы есть ответы!!!! Эксперты парни молодцы! Успехов.

Ответ отправил: Warrior (статус: 1-ый класс) Отправлен: 02.10.2005, 12:41 Оценка за ответ: 3 Комментарий оценки: Не по теме ответ, имхо.

Вопрос № 27.119

Господа эксперты, посоветуйте что-нибудь по такому поводу: Хочу написать что-то похожее на winamp-овскую media library. То есть программу- каталог моих mp3- файлов. Как можно сделать так, чтобы при указании папки программа выгребала информацию из тэгов и росала их в базу данных? Заранее благодарен.

Отправлен: 02.10.2005, 14:16 Вопрос задал: Prosto_Blackhowk (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Силантьев Евгений Александрович Здравствуйте, Prosto_Blackhowk! Фун-ия чтения ID3 type TID3Tag = record ID: string[3]; Titel: string[30]; Artist: string[30]; Album: string[30]; Year: string[4]; Comment: string[30]; Genre: Byte; end; const Genres : array[0..146] of string = ('Blues','Classic Rock','Country','Dance','Disco','Funk','Grunge', 'Hip- Hop','Jazz','Metal','New Age','Oldies','Other','Pop','R&B', 'Rap','Reggae','Rock','Techno','Industrial','Alternative','Ska', 'Death Metal','Pranks','Soundtrack','Euro-Techno','Ambient', 'Trip-Hop','Vocal','Jazz+Funk','Fusion','Trance','Classical', 'Instrumental','Acid','House','Game','Sound Clip','Gospel','Noise', 'Alternative Rock','Bass','Punk','Space','Meditative','Instrumental Pop', 'Instrumental Rock','Ethnic','Gothic','Darkwave','Techno-Industrial','Electronic', 'Pop-Folk','Eurodance','Dream','Southern Rock','Comedy','Cult','Gangsta', 'Top 40','Christian Rap','Pop/Funk','Jungle','Native US','Cabaret','New Wave', 'Psychadelic','Rave','Showtunes','Trailer','Lo-Fi','Tribal','Acid Punk', 'Acid Jazz','Polka','Retro','Musical','Rock & Roll','Hard Rock','Folk', 'Folk-Rock','National Folk','Swing','Fast Fusion','Bebob','Latin','Revival', 'Celtic','Bluegrass','Avantgarde','Gothic Rock','Progressive Rock', 'Psychedelic Rock','Symphonic Rock','Slow Rock','Big Band','Chorus', 'Easy Listening','Acoustic','Humour','Speech','Chanson','Opera', 'Chamber Music','Sonata','Symphony','Booty Bass','Primus','Porn Groove', 'Satire','Slow Jam','Club','Tango','Samba','Folklore','Ballad', 'Power Ballad','Rhytmic Soul','Freestyle','Duet','Punk Rock','Drum Solo', 'Acapella','Euro-House','Dance Hall','Goa','Drum & Bass','Club-House', 'Hardcore','Terror','Indie','BritPop','Negerpunk','Polsk Punk','Beat', 'Christian Gangsta','Heavy Metal','Black Metal','Crossover','Contemporary C', 'Christian Rock','Merengue','Salsa','Thrash Metal','Anime','JPop','SynthPop'); var Form1: TForm1; implementation {$R *.dfm} function readID3Tag(FileName: string): TID3Tag; var FS: TFileStream; Buffer: array [1..128] of Char; begin FS := TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite); try FS.Seek(-128, soFromEnd); FS.Read(Buffer, 128); with Result do begin ID := Copy(Buffer, 1, 3); Titel := Copy(Buffer, 4, 30); Artist := Copy(Buffer, 34, 30); Album := Copy(Buffer, 64, 30); Year := Copy(Buffer, 94, 4); Comment := Copy(Buffer, 98, 30); Genre := Ord(Buffer[128]); end; finally FS.Free; end; end; Фун-ия поиска procedure TfrmMain.ScanDir(Dir:string); var SearchRec:TSearchRec; begin if Dir<>'' then if Dir[length(Dir)]<>'' then Dir:=Dir+''; if FindFirst(Dir+'*.*', faAnyFile, SearchRec)=0 then repeat if (SearchRec.name='.') or (SearchRec.name='..') then continue; if (SearchRec.Attr and faDirectory)<>0 then ScanDir(Dir+SearchRec.name) else if MatchesMask(Dir+SearchRec.name, '*.mp3') then readID3Tag(Dir+SearchRec.name); until FindNext(SearchRec)<>0; FindClose(SearchRec); end; --------- The world is mine! :)

Ответ отправил: Силантьев Евгений Александрович (статус: 6-ой класс) Отправлен: 02.10.2005, 18:55 Оценка за ответ: 5

Вопрос № 27.124

Здравствуйте эксперты. На этот раз мне нужно сделать цикл, что бы во время этого цикла из итемсов листбокса брались пути к файлам и подставлялись в параметр запуска проги, не все сразу, а по очереди. И ещё одно как сделать, что бы при перетаскивания файла в листбокс в итемсах появлялся путь к этому файлу, ну или хотя бы что бы через opendialog при выделение нескольких файлов появлялись пути ко всем файлам, а не к последнему. з.ы. если что не так извините, я ещё учусь и спасибо за предыдущие ответы. Приложение: прога пускается так WINEXEC(PChar('Converter.exe '+i+' '+сюда надо подставлять занчение из листбокса+' '+Edit2.Text+' '+g),sw_show);

Отправлен: 02.10.2005, 17:13 Вопрос задал: Dimon007 (статус: Посетитель) Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Delphin Здравствуйте, Dimon007! Немного не понял. Подставлялись как параметры запуска или имя файла? Наверно параметры. Поочереди? Тоесть запскать файл для каждого Item'a с параметрном? Тогда смотри пр. №1. Про то как получить имя перетаскиваемого файла пр. №2 Про выбор файлов пр. №3 P.S> Поставь оценку если тебе это поможет. Я ответил на все твои вопросы. У меня щас периуд атестации на RusFAQ. Так что я буду тебе очень благодарен. Приложение: #1: // Lb_Params - Это твой ListBox // Btn_Go - Это кнопка "Старт" procedure TFrm_Main.Btn_GoClick(Sender: TObject); var c : Integer; begin For c := 0 to Lb_Params.Items.Count - 1 Do Begin // Непонятно "i" - Это номер строки или просто так. WinExec( PChar( 'Converter.exe ' + i + ' ' + Lb_Params.Items.Strings[ c ] + ' '+ Edit2.Text + ' ' + g ), SW_SHOW ); End; end; // P.S> Учись оформлять код правильно. :-) // Почитай стили оформления кода. // Если че то постучи в ICQ (66550088), // я тебе дам статью как это делать правильно #2: // <---- Это впиши в секцию "Private" ----> Procedure WMDropFiles( Var M: TWMDropFiles ); Message WM_DROPFILES; // Перетаскиваем файл. // <---- Это куданить. Заставит принимать файлы ----> DragAcceptFiles( Handle, True ); // Можно тащить файлы // <--- Вспомогательная функция ---> { Найти файл по ярлыку } Function ResolveShortcut( Wnd: HWND; ShortcutPath: String ): String; Var obj: IUnknown; isl: IShellLink; ipf: IPersistFile; pfd: TWin32FindDataA; Begin Result := ''; obj := CreateComObject( CLSID_ShellLink ); isl := obj As IShellLink; ipf := obj As IPersistFile; ipf.Load( PWChar( WideString( ShortcutPath ) ), STGM_READ ); With isl Do Begin Resolve( Wnd, SLR_ANY_MATCH ); SetLength( Result, MAX_PATH ); GetPath( PChar( Result ), Length( Result ), pfd, SLGP_UNCPRIORITY ); Result := PChar( Result ); End; End; // <---- Это где-то после "Implementation", Обработчик функции что вписали в "Private" ---> { В окно залетел файл } Procedure T{ТВОЯ ФОРМА}.WMDropFiles( Var M: TWMDropFiles ); Var hDrop: Cardinal; n: Integer; s: String; Begin hDrop := M.Drop; n := DragQueryFile( hDrop, 0, Nil, 0 ); SetLength( s, n ); DragQueryFile( hDrop, 0, PChar( s ), n + 1 ); DragFinish( hDrop ); M.Result := 0; Lb_Params.Items.Add( S ); End; #3: // OD <--- TOpenDialog // <--- Поставим возможность выбора множества файлов ->> OD.Options := [ofHideReadOnly,ofAllowMultiSelect,ofEnableSizing]; // <--- На кнопку отрытия диалога --> If OD.Execute Then Begin Lb_Params.Items.AddStrings( OD.Files ); End; --------- Обращаться в ICQ: 66550088 (Ally) или E-Mail: delphinster@gmail.com

Ответ отправил: Delphin (статус: Студент) Отправлен: 02.10.2005, 17:56 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Здравствуйте, Dimon007! 1)for i:=0 to ListBox1.Items.Count-1 do WinExec(PChar('Converter.exe '+i+' '+ListBox1.Items[I]+' '+Edit2.Text+' '+g),sw_shownormal); 2) В приложении небольшой модуль, который выводит сообщение, если на него перетащить файлы. Для ListBox делается аналогично. Приложение: interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private { Private declarations } PROCEDURE FileIsDropped ( VAR Msg : TMessage ) ; Message WM_DropFiles ; public { Public declarations } end; var Form1: TForm1; implementation uses shellapi; {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles( Handle,True ) ; end; PROCEDURE TForm1.FileIsDropped ( VAR Msg : TMessage ) ; VAR hDrop : THandle ; fName : ARRAY[0..254] OF CHAR ; NumberOfFiles : INTEGER ; fCounter : INTEGER ; Names : STRING ; BEGIN hDrop := Msg.WParam ; NumberOfFiles := DragQueryFile(hDrop,-1,fName,254); Names := '' ; FOR fCounter := 1 TO NumberOfFiles DO BEGIN DragQueryFile(hDrop,fCounter,fName,254); // Здесь вы получаете один к одному имя вашего файла Names := Names + #13#10 + fName ; END ; ShowMessage('Бросаем '+IntToStr(NumberOfFiles) + ' файла(ов) : ' + Names ); DragFinish ( hDrop); END ; end. --------- Мышка побежала, xвостиком махнула - cервер упал...

Ответ отправил: Ерёмин Андрей (статус: Практикант) Отправлен: 03.10.2005, 07:54

Отвечает: Romodos Здравствуйте, Dimon007! 1) for i:=0 to listbox1.items.count do WINEXEC(PChar('Converter.exe '+i+' '+listbox1.items[i]+' '+Edit2.Text+' '+g),sw_show); 2) выставляем свойство opendialog allowmultiselect в true пишем if opedialog1.execute then for j:=0 to opendialog1.files.count-1 do listbox.items.add(opendialog1.files[j]); --------- FAQ me off!

Ответ отправил: Romodos (статус: 8-ой класс) Отправлен: 03.10.2005, 16:23

Вопрос № 27.125

Здрасте экспеты RusFAQ!!!! Короче скажите процедуру котрой получить дату текстом :) На английском языке. Или зависящем от языка системы. Тока не надо мямлить типа глянь там глянь тут. Просто имя функции и какие параметры подставлять.

Отправлен: 02.10.2005, 17:34 Вопрос задал: Delphin (статус: Студент) Всего ответов: 4 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: mvp Здравствуйте, Delphin! Пример из help'а (см. приложение). dddd - полное имя дня недели (ddd - сокращённое); mmmm - тоже самое для месяца. Если вы и числа хотите текстом, то тут прийдётся самому написать небольшую функцию :) d - число yyyy - год Приложение: The following example uses FormatDateTime to set the string variable S to a sentence indicating a meeting time in 3 hours. The sentence has the form 'The meeting is on Wednesday, February 15, 1995 at 2:30 PM'. S := FormatDateTime('"The meeting is on " dddd, mmmm d, yyyy, " at " hh:mm AM/PM', Now + 0.125); --------- Моя совесть чиста - не бывшая в употреблении

Ответ отправил: mvp (статус: 6-ой класс) Отправлен: 02.10.2005, 18:02 Оценка за ответ: 5

Отвечает: sir henry Здравствуйте, Delphin! Ну, насчет мямлить, это скорее к Вам относится. В следующий раз постарайтесь в вопросе излагать только его суть, а не свое отношение к будущим ответам. Тогда Вас проще будет понять. :) DateToStr(Date: TDateTime); DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word); Выбирете из них ту функцию, которая Вам нужна.

Ответ отправил: sir henry (статус: Профессор) Отправлен: 02.10.2005, 18:56 Оценка за ответ: 5

Отвечает: Ерёмин Андрей Здравствуйте, Delphin! Можно вот так например: var S: string; begin DateTimeToString( S, 'Сегодня dddd dd mmm yyyy г.', Date); MessageDlg( S, mtInformation, [mbOk], 0); --------- Мышка побежала, xвостиком махнула - cервер упал...

Ответ отправил: Ерёмин Андрей (статус: Практикант) Отправлен: 03.10.2005, 08:01 Оценка за ответ: 5

Отвечает: SlavComp Здравствуйте, Delphin! Если кратко то: FormatDateTime(' dddd, 3 mmmm, yyyy ', TDateTime) Где TDateTime - переменная такого типа. Чтобы просто вывести текущую дату - FormatDateTime(' dddd, 3 mmmm, yyyy ',Date)

Ответ отправил: SlavComp (статус: 1-ый класс) Отправлен: 03.10.2005, 16:33 Оценка за ответ: 5

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.