Лидеры по количеству баллов:

Сегодня я решил немного "приоткрыть занавес" и показать не 10 лидеров, а первые 15 позиций.

А вот некоторая статистическая информация:

Примечание: Под форматированием текста понимается возможность оформлять ответы с использованием html-тегов.

Если Вы хотите, чтобы Вашего имени (ника) не было в данной таблице, отправьте письмо по этой ссылке с зарегистрированного у нас адреса. В теле письма, пожалуйста, укажите причину удаления имени из таблицы. Нам важно ваше мнение.

Основные правила нашей рассылки:
1. Не присылайте ответов на вопросы вроде "да я не знаю" или "да/нет". Такие ответы не публикуются.
2. Вопросы, не касающиеся Delphi, не принимаются (для этого существуют другие рассылки).
3. Запрещено присылать вложенные файлы, объёмом выше установленного ограничения (ограничения указаны в правилах).
4. Не изменяйте тем присылаемых писем. Письма с "неправильными" темами не обрабатываются! Используйте текстовый (не HTML) формат писем. HTML-теги применяйте только в том случае, если Вы уже достигли статуса, где это разрешено (см. правила).
5. Запрещено задавать вопросы, содержащие два (или несколько) вопросов разной тематики. Каждый из таких вопросов должен быть оформлен отдельным письмом.

Вопрос #216 (автор вопроса: Jake; вопрос отправлен: 31.12.2005 20:14):

У меня такая ситуация: имеется форма и компоненты RadioButton (порядка 20) на ней, после компиляции (во время работы с написаной программой) некоторые RadioButton`ы переходят в состояние Disabled, как и задумано ранее. Вопрос такой: как сделать кнопку "сброс" (сам код) которая при нажати переводила бы все RadioButton`ы в Enabled, или же открывала форму заново? Желательно какое-нибудь "компактное решение", а не:

RadioButton1.Enabled:= True; RadioButton2.Enabled:= True; ...

Вопрос #217 (автор вопроса: Sadowsky Vladimir T; вопрос отправлен: 01.01.2006 17:42):

Здравствуйте, уважаемые эксперты! С Новым 2006 Годом Вас!!! Подскажите пожалуйста: как используя объект TShellTreeView создать новый подкаталог и отобразить его в окне TShellTreeView? Заранее всем спасибо. [Ответить на вопрос]

Вопрос #218 (автор вопроса: Олег; вопрос отправлен: 03.01.2006 13:29):

Всем привет! Есть желание, но нет возможности замутить для своего чата банальные смайлики. Чат на сокетах для локальной сети. Что можно использовать в качестве отображения мессаджей и смайлов? Если есть компонент специальный, подскажите пожалуйста, где его взять. Спасибо заранее. [Ответить на вопрос]

Вопрос #219 (автор вопроса: illuha; вопрос отправлен: 04.01.2006 20:51):

Здравствуйте!
Первый вопрос такой: Программа сканирует реестр, и когда дохожу к ключу HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Services\lanmanserver\Shares, то функция RegQueryInfoKey выдает, NumSubKeys=1, а MaxSubKeyLen=0 и дальше пошла ошибка получения имени ключа. В чем причина? Открываю RegOpenKeyEx с атрибутом KEY_READ.
А вот и второй: В некоторых ключах RegOpenKeyEx выдает ошибку 2 или 5, хотя в ключе присутствуют данные, почему? [Ответить на вопрос]

Вопрос #220 (автор вопроса: Роман; вопрос отправлен: 06.01.2006 02:16):

Как на Delphi 7 создать красивую форму наподобие Winamp'a? [Ответить на вопрос]

Вопрос #221 (автор вопроса: Садовников Владимир; вопрос отправлен: 06.01.2006 18:13):

Нужно написать что-то вроде текстового чата. Для этого я решил использовать два консольных буфера (CreateConsoleBuffer), которые потом копируются на общую консоль. С выводом, вроде всё в порядке. Кто-нибудь может подсказать, как при помощи WinAPI написать функцию ввода строки в нужном месте главной консоли, используя один из буферов? [Ответить на вопрос]

Вопрос #222 (автор вопроса: Ilay Babakov; вопрос отправлен: 10.01.2006 20:33):

Уважаемые программисты, подскажите как из БД Access оперировать данными (числами) (арифметические действия), или вывести определённую ячейку? Заранее благодарен. [Ответить на вопрос]

Вопрос #223 (автор вопроса: Игорь; вопрос отправлен: 13.01.2006 10:29):

Есть поле редактирования RichEdit2, строки в котором переписываются через заданое время. Нужно, чтобы при перемещении над полем курсора мыши, строки, вернее текст в этих строках, который попадает под курсор мыши становился жирным и подчеркнутым, также чтобы менялся вид курсора мыши. И все это чтобы возвращалось в прежнее состояние при потере курсора мыши. Также нужно, чтобы при двойном нажатии клавиши мыши, текст находящийся под курсором мыши, сохранялся в какую то текстовую переменную, или заносился в поле редактирования Edit1. Как это все сделать? [Ответить на вопрос]

Вопрос #205 (автор вопроса: Vitek; вопрос отправлен: 10.12.2005 21:05):

У меня такой вопрос: как можно написать DLL для нормального чтения mov и avi в кодировке DivX(Xvid), mpeg4, ну и др. какие-нибудь? Или есть какие компоненты? Использую MediaPlayer из Delphi7. Просто когда открываю такой файл, то нет звука, чёрный экран, или изображение идёт по ключевым фреймам. [Ответить на вопрос]

Вопрос #212 (автор вопроса: Владимир; вопрос отправлен: 18.12.2005 20:30):

Подскажите пожалуйста, кто работал с XStringGrid, как прикрутить форму к FormCellEditor? Что-то разобраться не могу, и документации никакой на офсайте нет, или ссылку на документацию. [Ответить на вопрос]

Вопрос #215 (автор вопроса: Аркадий; вопрос отправлен: 27.12.2005 05:06):

Как сделать поиск в mdb или mde, в обьектах (таблицы, запросы, макросы, модули) и изменять функции? [Ответить на вопрос]

Вопрос #197:
Я новичок в программировании. Как можно в Delphi на OpenGL загрузить .x файл? P.S. Просто этот файл удобен тем, что его можно открыть обычным текстовым блокнотом и просмотреть его структуру. А я очень хочу понять принцип - как загружать файлы 3D сцен в Delphi (как осуществлять перехот от одной координаты в другую, записанную в файле 3D модели, как отличать один объект от другого и т.д.) Буду очень благодарен за исходник с подробными объяснениями. Спасибо заранее!

1. [Отвечает: midav.land.ru, 03.01.2006 14:34]: К сожалению, я не знаю формата файла .x и в интернете не нашёл ничего внятного. Приведи пример файла или программу, который может их обрабатывать. А в общем для загрузки пишут лексический анализатор. Тема достаточно избита в узких кругах и при наличии сведений о структуре решается достаточно просто.

Оценка за ответ: 4.

Вопрос #209:
Можно ли узнать когда был "расшарен" каталог в сети. Т.е. узнать дату, когда на каталог был установлен общий доступ, если этот каталог находится не на моей машине и я имею к нему только "сетевой" доступ?

1. [Отвечает: PVS, 03.01.2006 10:43]: Вряд-ли. Разве только на машине настроено очень подробное журналирование и у Вас есть доступ на чтение журналов (удаленное чтение, если я правильно понял). Если же нужный каталог на win98 - это, скорее всего, нереально ни при каких условиях.

Оценка за ответ: 5.

Вопрос #210:
Здравствуйте уважаемые эксперты! Подскажите пожалуйста: как превратить ячейку StringGrid'a в многострочный редактор типа TMemo, другими словами - добавить свойство Lines? Заранее всем спасибо.

1. [Отвечает: Деревянко Евгений, 31.12.2005 13:08]: Если нужно только отображать, то для этого может быть достаточно отключить DefaultDrawing для грида и переопределить рисование ячейки. А как разделителем строк в поле cells[ACol, ARow] можно записать какой-то символ или их комбинацию, например символ ~. Тогда нужно будет анализивовать cells на разделитель и выводить в строках. А если необходимо и редактировать текст, то на событие GetEditText грида можно подставлять Memo точно по размеру ячейки и передать туда текст из ячейки грида, а на MemoOnExit спрятать memo и передать в ячейку грида текст: cells[ACol, ARow] := memo.lines[1]+'~'+memo.lines[2]... и т.д. Вариант не идеальный, но остальное можно по надобности дофантазировать.

Оценка за ответ: 5.

2. [Отвечает: Матвеев И.В., 31.12.2005 05:08]: Если Вы хотите просто выводить многострочный текст в ячейках StringGrid'а - просто так это не получится сделать, так как StringGrid использует метод TCanvas.TextRect для рисования текста, а он не умеет выводить многострочный текст. Но Вы можете самостоятельно обрабатывать событие OnDrawCell и рисовать там многострочный текст, вот пример:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect; State: TGridDrawState); var CellStr : PChar; begin CellStr := PChar(StringGrid1.Cells[ACol, ARow]); TStringGrid(Sender).Canvas.FillRect(Rect); DrawText(TStringGrid(Sender).Canvas.Handle, CellStr, Length(CellStr), Rect, DT_CENTER or DT_WORDBREAK); end;

Оценка за ответ: 5.

3. [Отвечает: dasha ermakova, 04.01.2006 14:42]: Многострочность ячеек StringGrid вроде не поддерживает. Можно при выборе ячейки ставить на ее место TMemo, а при переходе на другую ячейку сохранять в нее набранный текст, и загружать в Мемо текст новой. В самой таблице текст с переходом на новую строку будет выглядеть не очень красиво, но зато можно редактировать, при необходимости загрузить в тот же Мемо и работать с Lines. Если очень нужно отображать многострочность, можно отслеживать событие StringGrid1DrawCell, и писать текст методом StringGrid1.Canvas.TextOut(). А можно поискать компонент, который все это поддерживает. В примере первый метод:

var Form1: TForm1; NCol,NRow: integer; implementation uses Types; {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Height:=StringGrid1.DefaultRowHeight+3; Memo1.Width:=StringGrid1.DefaultColWidth+3; end; procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol, ARow: Integer; var CanSelect: Boolean); begin StringGrid1.Cells[NCol,NRow]:=Memo1.Text; Memo1.Text:=''; Memo1.Top:=StringGrid1.CellRect(ACol,ARow).Top+StringGrid1.Top; Memo1.Left:=StringGrid1.CellRect(ACol,ARow).Left+StringGrid1.Left; Memo1.Text:=StringGrid1.Cells[ACol,ARow]; NCol:=ACol; NRow:=ARow; end;

Оценка за ответ: 5.

4. [Отвечает: Антон Трапезников, 09.01.2006 09:23]: Здравствуйте, Денис. Сперва необходимо установить свойство DefaultDrawing в False. Далее, необходимо вставить следующий код в обработчик события OnDrawCell:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; Col, Row: Longint; Rect: TRect; State: TGridDrawState); var Line1: string; Line2: string; ptr: integer; padding: integer; hGrid: TStringGrid; begin hGrid:= (Sender as TStringGrid); ptr := Pos(';', hGrid.Cells[Col, Row]); if ptr > 0 then begin Line1 := Copy(hGrid.Cells[Col, Row], 1, ptr - 1); Line2 := Copy(hGrid.Cells[Col, Row], ptr + 1, Length(hGrid1.Cells[Col,Row]) - ptr); end else Line1 := hGrid.Cells[Col, Row]; hGrid.Canvas.FillRect(Rect); hGrid.Canvas.TextOut(Rect.Left, Rect.Top + 2, Line1); if ptr > 0 then hGrid.Canvas.TextOut(Rect.Left, Rect.Top - hGrid.Canvas.Font.Height + 3, Line2); end;

Теперь достаточно для переноса строки вставить в неё точку с запятой. Так же не забудьте изменить высоту строки так, чтобы переносы строки поместились в ячейку:

StringGrid1.RowHeights[0] := StringGrid1.DefaultRowHeight * 2 ;

Взято с Исходников.ru http://www.sources.ru.

Оценка за ответ: 5.

Вопрос #211:
Как написать программу, которая будет определять какие пользователи есть на компьютере? Допустим, нажать кнопку и в memo создастся список всех пользователей.

1. [Отвечает: MiXei4, 30.12.2005 17:27]: Пишем модуль...

unit GetUser; interface uses Sysutils, Classes, Stdctrls, Comctrls, Graphics, Windows; {$EXTERNALSYM NetUserEnum} function NetUserEnum(servername: LPWSTR; level, filter: DWORD; bufptr: Pointer; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): DWORD; stdcall; external 'NetApi32.dll' Name 'NetUserEnum'; function NetApiBufferFree(Buffer: Pointer {LPVOID}): DWORD; stdcall; external 'NetApi32.dll' Name 'NetApiBufferFree'; procedure GetLocalUserList(ulist: TStringList); implementation procedure GetLocalUserList(ulist: TStringList); const NERR_SUCCESS = 0; FILTER_TEMP_DUPLICATE_ACCOUNT = $0001; FILTER_NORMAL_ACCOUNT = $0002; FILTER_PROXY_ACCOUNT = $0004; FILTER_INTERDOMAIN_TRUST_ACCOUNT = $0008; FILTER_WORKSTATION_TRUST_ACCOUNT = $0010; FILTER_SERVER_TRUST_ACCOUNT = $0020; type TUSER_INFO_10 = record usri10_name, usri10_comment, usri10_usr_comment, usri10_full_name: PWideChar; end; PUSER_INFO_10 = ^TUSER_INFO_10; var dwERead, dwETotal, dwRes, res: DWORD; inf: PUSER_INFO_10; info: Pointer; p: PChar; i: Integer; begin if ulist = nil then Exit; ulist.Clear; info := nil; dwRes := 0; res := NetUserEnum(nil, 10, FILTER_NORMAL_ACCOUNT, @info, 65536, @dwERead, @dwETotal, @dwRes); if (res <> NERR_SUCCESS) or (info = nil) then Exit; p := PChar(info); for i := 0 to dwERead - 1 do begin inf := PUSER_INFO_10(p + i * SizeOf(TUSER_INFO_10)); ulist.Add(WideCharToString(PWideChar((inf^).usri10_name))); end; NetApiBufferFree(info); end; end.

Дальше в программе используем процедуру GetLocalUserList из этого модуля, передавая в качестве параметра переменную типа TStringList. В ней и будет список всех пользователей...

Оценка за ответ: 5.

2. [Отвечает: Матвеев И.В., 31.12.2005 05:08]: Все данные есть в реестре + функция LookupAccountSid, привожу пример, позволяющий определить список пользователей не только на своем, но и на сетевых компьютерах. См. Приложение. Загрузить прикреплённый файл >>

Оценка за ответ: 5.

3. [Отвечает: PVS, 03.01.2006 11:19]: Надо использовать функцию NetUserEnum. При праметре level=0 (это как раз имя пользователя) ее может использовать любой пользователь. На локальном компьютере ServerName=nil. Filter - по надобности. BufPtr -указатель на USER_INFO_0 . PrefMaxLen = SizeOf(USER_INFO_0)

repeat
........
retval=NetUserEnum(.....);
........
until retval<>ERROR_MORE_DATA;

Оценка за ответ: 5.

4. [Отвечает: mfred, 04.01.2006 17:24]: Привет, вот код для вывода всех пользователей я его нашел на delphiworld.narod.ru. У меня не работает, попробуй может что придумаешь.

unit Func; interface uses Sysutils, Classes, Stdctrls, Comctrls, Graphics, Windows; //////////////////////////////////////////////////////////////////////////// //// {$EXTERNALSYM NetUserEnum} function NetUserEnum(servername: LPWSTR; level, filter: DWORD; bufptr: Pointer; prefmaxlen: DWORD; entriesread, totalentries, resume_handle: LPDWORD): DWORD; stdcall; external 'NetApi32.dll' Name 'NetUserEnum'; function NetApiBufferFree(Buffer: Pointer {LPVOID}): DWORD; stdcall; external 'NetApi32.dll' Name 'NetApiBufferFree'; //////////////////////////////////////////////////////////////////////////// //// procedure GetLocalUserList(ulist: TStringList); implementation //-------------------------------------------------------------------------- ---- // возвращает список пользователей локального хоста //-------------------------------------------------------------------------- ---- procedure GetLocalUserList(ulist: TStringList); const NERR_SUCCESS = 0; FILTER_TEMP_DUPLICATE_ACCOUNT = $0001; FILTER_NORMAL_ACCOUNT = $0002; FILTER_PROXY_ACCOUNT = $0004; FILTER_INTERDOMAIN_TRUST_ACCOUNT = $0008; FILTER_WORKSTATION_TRUST_ACCOUNT = $0010; FILTER_SERVER_TRUST_ACCOUNT = $0020; type TUSER_INFO_10 = record usri10_name, usri10_comment, usri10_usr_comment, usri10_full_name: PWideChar; end; PUSER_INFO_10 = ^TUSER_INFO_10; var dwERead, dwETotal, dwRes, res: DWORD; inf: PUSER_INFO_10; info: Pointer; p: PChar; i: Integer; begin if ulist = nil then Exit; ulist.Clear; info := nil; dwRes := 0; res := NetUserEnum(nil, 10, FILTER_NORMAL_ACCOUNT, @info, 65536, @dwERead, @dwETotal, @dwRes); if (res <> NERR_SUCCESS) or (info = nil) then Exit; p := PChar(info); for i := 0 to dwERead - 1 do begin inf := PUSER_INFO_10(p + i * SizeOf(TUSER_INFO_10)); ulist.Add(WideCharToString(PWideChar((inf^).usri10_name))); end; NetApiBufferFree(info); end; end.

Оценка за ответ: 5.

5. [Отвечает: dasha ermakova, 04.01.2006 17:39]: В папке "C:\Documents and Settings" все папки, кроме скрытых, а также "All Users" и "Administrator" именованы логинами пользователей. Поэтому составить их список можно так:

procedure TForm1.Button1Click(Sender: TObject); var Dir: string; SearchRec:TSearchRec; begin Dir:='C:\Documents and Settings\'; if FindFirst(Dir+'*.*',faAnyFile,SearchRec)=0 then repeat if (SearchRec.name='.') or (SearchRec.name='..') then continue; if ((SearchRec.Attr and faDirectory)<>0) and ((SearchRec.Attr and faHidden)=0) then if (SearchRec.Name<>'All Users') and (SearchRec.Name<>'Administrator') then try Memo1.Lines.Add(SearchRec.Name) except end; until FindNext(SearchRec)<>0; FindClose(SearchRec); end;

Оценка за ответ: 5.

6. [Отвечает: Антон Трапезников, 09.01.2006 09:24]: Здравствуйте, Павел. GetLocalUserList - возвращает список пользователей (Windows NT, Windows 2000). Исходник.

Оценка за ответ: 5.

Вопрос #213:
Каким образом узнать количество страниц в документе Word и загрузить в OleContainer страницу с нужным номером?

1. [Отвечает: midav.land.ru, 03.01.2006 14:21]: Кажись никак. Он по умолчанию грузит с самого начала. Проще наверное разбить на странички (один документ - одна страничка).

Оценка за ответ: 3.

Вопрос #214:
Нужно сделать небольшую программу для обмена сообщениями в локальной сети. Программа должна сидеть в трее и реагировать на входящие собщения. Вопрос: какие компоненты будет лучше всего использовать?

1. [Отвечает: Матвеев И.В., 31.12.2005 05:08]: Передавать данные через сеть можно либо по протоколу TCP/IP, либо по UDP. Если Вы хотите использовать TCP/IP - используйте компоненты TClientSocket/TServerSocket (палитра Internet). Готовый пример чата из книги Сергея Бобровского "Delphi 6 и Kylix" смотите в приложении к письму. Если UDP - используйте TIdUDPClient/TIdUDPServer с палитры Indy. Загрузить прикреплённый файл >>

Оценка за ответ: 5.

2. [Отвечает: PVS, 03.01.2006 11:32]: Зависит от того какая версия Delphi. В разных версиях туда включались разные не-Borland'овские компоненты, которые, в принципе, могут облегчить задачу, но если нужно самое работающее(на мой взгляд) решение, то надо использовать TSocket - он есть везде (кажется и в Kylix'e).

Оценка за ответ: 5.

3. [Отвечает: midav.land.ru, 03.01.2006 14:30]: Установите библиотеку Jedy. Там есть куча компонентов, которые вам понадоблятся для оформления. Там есть компонент для "помещения" программы в трей. (слово "помещение" взято неспроста в кавычки, так как основная идея этого действия заключается в том, что главная форма скрывается, а иконка в трее отображается). Имя компонента JvTrayIcon (вкладка Jv Non-Visual). Также вам наверное будет надо компонент JvBalloonHint (там же), который позволит отображать красивые всплывающие хинты. Примеры к библиотеке прилагаются немеряные, поэтому вопросов по использованию должно быть мало. Для работы в сети можно использовать компоненты Indy. В зависимости от идиологии вашей программы либо TCPClient/TCPServer или UDPClient/UDPServer.Примеры с делфой не поставляются (с 6 - поставляются, это в 7 обидели), но в папке Demos\Indy лежит файлик, где указано откуда выкачать ...

Оценка за ответ: 5.

4. [Отвечает: dasha ermakova, 04.01.2006 16:47]: Для локальной сети удобно использовать UDPClient и UDPServer. Нужно поставить на них одинаковый номер Port и DefaultPort, после чего в свойстве сервера Bindings создать новый элемент, указав IP address = all и свой номер порта. Очень важно, чтобы этот номер нигде не использовался. А еще установить BroadcastEnabled = true. После чего можно посылать сообщения клиентом с помощью Broadcast или Send. При этом указывать свой номер порта, а в случае Send - IP принимающего компьютера. Для реакции на входящие сообщения есть событие сервера OnUDPRead. Для общения приложения с треем очень удобный компонент CoolTrayIcon, он есть на сайте рассылки.

Оценка за ответ: 5.

5. [Отвечает: mfred, 04.01.2006 17:39]: Я бы использовал ClientSocket и ServerSocket которые нужно установить: Компоненты/Установить пакеты дальше надо открыть файл dclsockets70.bpl ОК. И они появятся на вкладке интернет.

Оценка за ответ: 4.

6. [Отвечает: Антон Трапезников, 09.01.2006 09:56]: Для Вашей задачи лучше всего, имхо, использовать протокол udp (TUDPSocket), т.к. в нем нет таких понятий как клиент и сервер. Минусом дейтаграмного протокола является то, что он, в отличие от TCP, не гарантирует правильную доставку пакета получателю, а просто шлет данные. Если же Вы хотите использовать TCPSocket-ы, то кто-то должен быть сервером, а кто-то клиентом, что, конечно же, не удобно. В сети очень много исходных текстов для аналогичных программ. Вот ссылка на один из них: http://www.sources.ru/delphi/internet/rlmes.zip. З.Ы. В examle-ах к Delphi есть пример чат программы с использованием TCP.

Оценка за ответ: 5.

Все вопросы и ответы на них Вы всегда можете найти на нашем сайте в разделе "Эксперт": http://www.delphi.int.ru/modules.php?name=expert.

Из данного раздела Вы можете скачать различные файлы: компоненты, plug-in'ы для Delphi, документацию по программированию, программы, игры, написанные на Delphi и всё остальное... Вы можете добавить свои файлы в данный раздел. Чтобы сделать это, пожалуйста, заполните форму на сайте.

Новые файлы на сайте:

Чтобы перейти к разделу "Файловый архив" на сайте, нажмите на эту ссылку.

Юмор.

Сегодня ничего нет... Давайте просто улыбнёмся.

:))

Пожалуйста, присылайте свои анекдоты по этой ссылке: info@delphi.int.ru и они обязательно будут опубликованы! Желательно на компьютерную тему.

Вы можете оказать помощь нашему проекту через систему WebMoney: R379291065219, Z165075684614. Будем очень признательны!