Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

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


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 242
от 09.11.2003, 14:09

Администратор:
Имя: Калашников О.А.
URL: Информационный ресурс
ICQ: 68951340
Россия, Москва
О рассылке:
Задано вопросов: 1093
Отправлено ответов: 2262
Активность: 206.9 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

Boriss
Статус: Опытный
Общий рейтинг: 138.51
Телефон: (8342) 324312
[Подробней >>]
Orlando
Статус: Начальный
Общий рейтинг: 101.66
[Подробней >>]
vitya
Статус: Профессиональный
Общий рейтинг: 107.98
[Подробней >>]
 
Илья
Статус: Профессиональный
Общий рейтинг: 102.59
[Подробней >>]
Bob Johnson
Статус: Профессиональный
Общий рейтинг: 149.2
URL: Программирование
[Подробней >>]
sir henry
Статус: Опытный
Общий рейтинг: 157.14
[Подробней >>]
 
THE_PRO
Статус: Опытный
Общий рейтинг: 138.72
URL: THE_PRO
[Подробней >>]
CJ
Статус: Доверительный
Общий рейтинг: 125
[Подробней >>]
Дима Мусиенко
Статус: Опытный
Общий рейтинг: 107.12
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 1083. Подскажите, пожалуйста, как форматировать текст в компоненте Stringgrid и как получить ширину произв... (ответов: 1)
Вопрос № 1085. Привет всем :)) Ребята подскажите, пожалуйста, как узнать под каким логоном зашли в систему??? ... (ответов: 5)
Вопрос № 1086. Здравствуйте уважаемые эксперты. Вопрос такой: Есть хранимые процедуры которые возвращают некоторые ... (ответов: 1)
Вопрос № 1087. При переносе базы данных на другой компьютер он(компьютер) ругаеться что типа не установлена какаята... (ответов: 3)
Вопрос № 1088. подскажите плз, как послать системное сообщение на удаленный компьютер?... (ответов: 3)

Вопросов: 5, ответов: 13


 Вопрос № 1083

Подскажите, пожалуйста, как форматировать текст в компоненте Stringgrid и как получить ширину произвольного столбца в Stringgrid.



Вопрос отправлен: 04.11.2003, 20:04
Отправитель: Сычев Юрий

[Следующий вопрос >>] [Список вопросов]

Отвечает Boriss

Добрый день, Сычев Юрий!
2)Элементарно: Компонент TStringGrid имеет свойство ColWidths(Index: Integer): Integer - содержит ширину столбца с индексом Index. w:=StingGrid1.ColWidth(2);
1) С форматированием чуть посложнее: нужно создать и написать обработчики событий, которые будут вызываться при:
OnDrawCell - будет вызываться при отрисовке всех ячеек. В нем нужно пользоваться Canvas.
OnGetEditMask - можно определить, какие символы допустимыs
OnGetEditText - редактор для представления строки в ячейке
OnSetEditText - для какой-то специальной обработки текста, вводимого пользователем
OnKeyDown - вызывается при нажатии клавиш
OnKeyUp - при отпускании клавиши
OnColumnMoved - при перемещении колонки
Какие лучше использовать - зависит от того, что Вы понимаете под словом "форматирование"

Ответ отправлен: 06.11.2003, 14:36
Отправитель: Boriss


 Вопрос № 1085

Привет всем :))
Ребята подскажите, пожалуйста, как узнать под каким логоном зашли в систему???
Объясняю ситуацию: Дочка 1-класс, заходит в систему под ANA, запускается таймер и через 1 час происходит SHUTDOWN системы с месагой
«Вы сегодня просидели уже 1 час за компьютером. Доступ будет разрешен завтра»
Таймер и SHUTDOWN я могу сделать.
Так что помогите, пожалуйста, как узнать имя пользователя???
Или более общий вопрос. Как обмануть ребенка? Чтоб он не засиживался за компьютером :)))



Вопрос отправлен: 05.11.2003, 09:47
Отправитель: qw

[Следующий вопрос >>] [Список вопросов]

Отвечает Orlando

Здравствуйте, qw!
Самый простой способ (для 2кб,XP):
Поместите программу в
C:Documents and SettingsANAГлавное менюПрограммыАвтозагрузка
и она будет загружаться только при регистрации пользователя ANA.


Ответ отправлен: 06.11.2003, 09:29
Отправитель: Orlando


Отвечает Boriss

Доброе время суток, qw!
Function GetUserFromWindows: string;
Var
UserName : string;
UserNameLen : Dword;
Begin
UserNameLen := 255;
SetLength(userName, UserNameLen);
If GetUserName(PChar(UserName), UserNameLen) Then
Result := Copy(UserName,1,UserNameLen - 1)
Else
Result := 'Unknown';
End;
Или еще: напишите прогу, которая выключает комп через 1 час (можно, чтобы она записывала данные и в след раз сегодня - через 10 минут, 5 минут, сразу ...). То есть она запускается при загрузке и если пользователь .... то OnTimer ...

Ответ отправлен: 06.11.2003, 14:47
Отправитель: Boriss


Отвечает vitya

Доброе время суток, qw!
//вот код...
DWORD dwLen = 512;
CString m_strLogin;
::GetUserName(m_strLogin.GetBuffer(dwLen), &dwLen);
m_strLogin.ReleaseBuffer();


Ответ отправлен: 05.11.2003, 12:05
Отправитель: vitya


Отвечает Илья

Приветствую Вас, qw!
Вот рабочий код:
int main(int argc, char* argv[])
{
char cUser[256];
LPTSTR lpszUser = cUser;
DWORD Size = 256;
GetUserName(lpszUser, &Size);
printf("%s ", lpszUser);
}
Если надо на Delphi то просто посмотри описание GetUserName в справке.

Ответ отправлен: 06.11.2003, 00:19
Отправитель: Илья


Отвечает Bob Johnson

Здравствуйте, qw!
1. Попробуй поставить системные ограничения в настройках windows.
2. Имя пользователя - функция GetUserName.

* EMan1.5: ---===*** The game we play ***===---


Ответ отправлен: 09.11.2003, 01:09
Отправитель: Bob Johnson


 Вопрос № 1086

Здравствуйте уважаемые эксперты. Вопрос такой:
Есть хранимые процедуры которые возвращают некоторые значения. Следующее работает, поля на самом деле одно Money а другое Float:
label1.Caption := dm1.spGetHours10PayKind.ParamByName('@th').AsString;
label2.Caption := dm1.spGetOrdersByPayKind.FieldByName('price_for_one').AsString;
а вот это работать не хочет, в том смысле, что работает но я смотрю эту переменную в Watch и там ничего не меняется:
sum_per_hour_10 := (dm1.spGetOrdersByPayKind.FieldByName('price_for_one').AsFloat) / (dm1.spGetHours10PayKind.ParamByName('@th').AsFloat);
Среда Делфи 7, MSSQL server
Т.е. нужные параметры возвращаются процедурами нормально, а данная операция не работает.



Вопрос отправлен: 05.11.2003, 10:49
Отправитель: Dmitry

[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Здравствуйте, Dmitry!
Потому что у Вас в первом приере стоит FieldByName, а во втором - ParamByName.

Ответ отправлен: 05.11.2003, 12:41
Отправитель: sir henry


 Вопрос № 1087

При переносе базы данных на другой компьютер он(компьютер) ругаеться что типа не установлена какаята фигня которая ставиться с делпчхи гдето я слышал что нужно кудато скопировать какието файлы
Вопрос куда и че копировать



Вопрос отправлен: 05.11.2003, 11:15
Отправитель: komrad

[Следующий вопрос >>] [Список вопросов]

Отвечает sir henry

Доброе время суток, komrad!
Слухай сюды, вот как надо:
Берешь ту фигню с этого компьютера и копируешь на тот компьютер туда-же, где была та фигня на этом компьютере.

Ответ отправлен: 05.11.2003, 12:37
Отправитель: sir henry


Отвечает Orlando

Добрый день, komrad!
Содержимое ..Common FilesBDE: файлы
bantam.dll
idapi32.dll
idbat32.dll
idpdx32.dll
idr20009.dll
idsql32.dll
other.btl
charset.cvb
скопировать в каталог с программой, которая обращается к базе(тока не будут работать альясы)

Ответ отправлен: 06.11.2003, 09:23
Отправитель: Orlando


Отвечает THE_PRO

Здравствуйте, komrad!
Yesli ti ispolzuyesh BDE to eto fayl bdeinst.dll
A tochneye regsvr32 bdeinst.dll
Eto installyator BDE

Ответ отправлен: 06.11.2003, 11:06
Отправитель: THE_PRO


 Вопрос № 1088

подскажите плз, как послать системное сообщение на удаленный компьютер?



Вопрос отправлен: 05.11.2003, 12:27
Отправитель: Andrey

[Следующий вопрос >>] [Список вопросов]

Отвечает CJ

Добрый день, Andrey!
http://www.sources.ru/delphi/internet/ts.rar
Вот те ссылка на программу, которая на мой взгляд тебе нужна!
Там и есть как послать сообщение на другой комп через сокеты!

Ответ отправлен: 05.11.2003, 15:30
Отправитель: CJ


Отвечает Дима Мусиенко

Здравствуйте, Andrey!
Если не программно, то можно воспользоваться утилитой net.exe но она есть в 2000XP на счет остальных не знаю.
лежит она в winsystem.
ЗЫ. Хотя я знаю, что ты имеешь ввиду программно, но *блин*
давно я не отвечал на вопросы да и в ящик не заходил, надеюсь меня поймут.


Приложение:

Ответ отправлен: 06.11.2003, 16:22
Отправитель: Дима Мусиенко


Отвечает Bob Johnson

Приветствую Вас, Andrey!
NetMessageBufferSend подойдет? Пример скоро будет на моей странице.

* EMan1.5: ---===*** The game we play ***===---


Ответ отправлен: 09.11.2003, 01:09
Отправитель: Bob Johnson



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (32)
C / C++ (26)
Perl (3)
Builder / Delphi (22)
Pascal (20)
Basic / VBA (6)
Java / JavaScript (8)
PHP (13)
Криптография (9)
WinAPI (14)
Пользователю
Windows 95/98/Me (45)
Windows NT/2000/XP (61)
"Железо" (39)
Поиск информации (28)
Администратору
Windows NT/2000/XP (37)
Linux / Unix (16)
Юристу
Гражданское право (10)
Семейное право (7)
Трудовое право (7)
КоАП (7)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2003 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное