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

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


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


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

Выпуск № 278
от 23.01.2004, 01:50

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


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

Pawel
Статус: Опытный
Общий рейтинг: 162.96
[Подробней >>]
THE_PRO
Статус: Опытный
Общий рейтинг: 138.12
URL: THE_PRO
[Подробней >>]
sir henry
Статус: Профессиональный
Общий рейтинг: 159.71
[Подробней >>]
 
samum2000
Статус: Опытный
Общий рейтинг: 117.46
[Подробней >>]
Boriss
Статус: Профессиональный
Общий рейтинг: 150.26
URL: Программирование на Паскале
[Подробней >>]


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

Вопрос № 1254. Здравствуйте!! Очень благодарен вам за подробный ответ,благодаря которому разобрался наконец как вти... (ответов: 1)
Вопрос № 1255. Приветствую Вас. У меня к вам два вопроса: 1. Почему не работает метод Image1->Canvas->Pixel[i,j] ... (ответов: 4)
Вопрос № 1256. Спасибо за ответ по СD-rom эксперту Bob Johnson Но я наверное не так высказался. Меня интересует как... (ответов: 2)
Вопрос № 1257. Что надо подключить к проге на Delphi для использования GetEnvVariableValue? Я подключаю ShellAPI, а... (ответов: 3)
Вопрос № 1258. Добрый день уважаемые эксперты. Есть пару вопросов по Delphi. 1) Как узнать все учетные записи в Win... (ответов: 1)
Вопрос № 1259. Привет экспертам, Необходим модуль на Pascal (Delphi) для работы с SMS с процедурами отправки сообщ... (ответов: 1)
Вопрос № 1260. Привет. Чувствую себя последним ламаком, но... Подскажите, как, при заданной директории, изменить ра... (ответов: 3)

Вопросов: 7, ответов: 15


 Вопрос № 1254

Здравствуйте!!
Очень благодарен вам за подробный ответ,благодаря которому разобрался наконец как втиснуть файл в StringGrid.
Не хочу показаться назойливым но если не трудно скажите можно ли втиснуть этот файл в DBGrid и можно ли использовать SQL в StringGride.
С уважением Антон.



Вопрос отправлен: 18.01.2004, 17:13
Отправитель: антон (oven_mars@rambler.ru)

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

Отвечает Pawel

Добрый день, антон!
DBGrid1.Columns.LoadFromFile();
Если будут вопросы пиши.

Ответ отправлен: 18.01.2004, 19:25
Отправитель: Pawel


 Вопрос № 1255

Приветствую Вас. У меня к вам два вопроса:
1. Почему не работает метод Image1->Canvas->Pixel[i,j] для Windows Metafile'ов?
2. Что нужно сделать, чтобы в TImage можно было загружать картинки *.jpg?
Удачи всем Вам!!!


Приложение:


Вопрос отправлен: 19.01.2004, 07:21
Отправитель: Ole

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

Отвечает Pawel

Здравствуйте, Ole!
Нужно конвертировать мета фаил или Jpg в Bmp, только тогда можно работать по пикселям.
Смотри приложение.
P.S. Код может содержать ошибки т.к. я переводил код с delphi на C++ Builder по памяти.

Приложение:

Ответ отправлен: 19.01.2004, 21:09
Отправитель: Pawel


Отвечает THE_PRO

Добрый день, Ole!
Oni rabotayut s TBitmap'ami

Ответ отправлен: 19.01.2004, 10:44
Отправитель: THE_PRO


Отвечает sir henry

Приветствую Вас, Ole!
1. Потому-что метафайл - это не рисунок, а набор инструкций по его рисованию. А значит и никаких пикселов там нет в принципе.
2. В Дельфях для этого нужно было подключать специальный модуль - Jpeg. Наверно в СВ++ нужно добавить заголовочный файл, типа^
#include
Нужно просмотреть каталог с .h файлами, есть ли там такой.

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


Отвечает samum2000

Здравствуйте, Ole!
2. На Delphi это будет выглядеть так:
image1.Picture.Graphic:=nil;
image1.Picture.LoadFromFile(JpegFileName);
На С++ по-моему так:
image1->Picture->Graphic:=null;
image1->Picture->LoadFromFile(JpegFileName);
Попутного ветра
!


Ответ отправлен: 21.01.2004, 11:21
Отправитель: samum2000


 Вопрос № 1256

Спасибо за ответ по СD-rom эксперту Bob Johnson
Но я наверное не так высказался. Меня интересует как сделать Eject СD-rom в котором находится диск. А именно у меня в системе 2 СD-rom и в Delphi при использовании команды Eject извлекается СD-rom в котором нет диска. Как сделать так чтоб при использовании команды Eject извлекался СD-rom в котором находится диск. И если можно по подробнее
Заранее спасибо всем откликнувшимся




Вопрос отправлен: 19.01.2004, 12:17
Отправитель: Mike (ttttt3000@hotbox.ru)

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

Отвечает Pawel

Приветствую Вас, Mike!
Смотри приложение:
Функция OpenCD открывает лоток CDROM.
Параметр Drive - буква диска лоток которого необходимо открыть.
Функция CloseCD закрывает лоток CDROM.
Параметр Drive - буква диска лоток которого необходимо закрыть.

Приложение:

Ответ отправлен: 19.01.2004, 21:04
Отправитель: Pawel


Отвечает Boriss

Добрый день, Mike!
1) Узнаем, какие есть CD
GetLogicalDrives()
GetDriveType()
2) сообщения посылаем для выдвижения
mciSendString('Set cdaudio Door Open Wait', nil, 0, handle);
mciSendCommand(mp.DeviceID, MCI_SET, MCI_SET_DOOR_CLOSED, 0);
3) И функцию API GetVolumeInformation() чтобы проверить VolumeName на равенство 'Audio CD'.
Пример:


Приложение:

Ответ отправлен: 20.01.2004, 17:20
Отправитель: Boriss


 Вопрос № 1257

Что надо подключить к проге на Delphi для использования GetEnvVariableValue? Я подключаю ShellAPI, а оно ругается Undeclared identifier: 'GetEnvVariableValue'



Вопрос отправлен: 19.01.2004, 14:29
Отправитель: Ivlex (ivlex983@yandex.ru)

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

Отвечает Boriss

Здравствуйте, Ivlex!
Поиск текста по исходникам и др. в Delphi7 не выявил такой функции, хотя она и описана. Вывод - не реализована. А что именно Вы хотите ею сделать, может есть другой вариант?

Ответ отправлен: 20.01.2004, 17:26
Отправитель: Boriss


Отвечает Pawel

Доброе время суток, Ivlex!
sir henry сказал что нет такой функции.
Функция есть и описанна в Windows SDK help в Delphi


Ответ отправлен: 19.01.2004, 21:00
Отправитель: Pawel


Отвечает sir henry

Доброе время суток, Ivlex!
Нет такой функции в Дельфях.

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


 Вопрос № 1258

Добрый день уважаемые эксперты.
Есть пару вопросов по Delphi.
1) Как узнать все учетные записи в WinXP, т.е. имена юзеров.
2) Как перехватить весь звук идущий на колонки, чтобы потом сохранить.



Вопрос отправлен: 19.01.2004, 15:15
Отправитель: Zarmi (lists@bk.ru)

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

Отвечает samum2000

Приветствую Вас, Zarmi!
Этот модуль я нашел в интернете. Он точно работает под W2k и WinNt, а вот проверить под XP пока не удалось, но кажется он должен работать, я на это
надеюсь.

Приложение:

Ответ отправлен: 21.01.2004, 11:21
Отправитель: samum2000


 Вопрос № 1259

Привет экспертам,
Необходим модуль на Pascal (Delphi) для работы с SMS с процедурами отправки сообщений с компьютера абоненту так и наоборот. Я очень хотел бы чтобы Вы ответили как можно скорее и попросил бы Вас выслать исходники с примерами, или ссылки на статьи или иную документацию по этой теме.
Заранее балгодарен, Рустем.



Вопрос отправлен: 19.01.2004, 16:48
Отправитель: Rustem (rusttem@hitv.ru)

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

Отвечает Boriss

Здравствуйте, Rustem!
Вот с примерами:
http://lru.voxnet.ru/modules.php?name=News&file=article&sid=41

Ответ отправлен: 20.01.2004, 17:51
Отправитель: Boriss


 Вопрос № 1260

Привет.
Чувствую себя последним ламаком, но...
Подскажите, как, при заданной директории, изменить расширения всех файлов из этой директории на какое-нибудь?
Количество файлов неизвестно.
Заранее спасибо.



Вопрос отправлен: 19.01.2004, 17:37
Отправитель: ROTTEN (ROTTEN@intbel.ru)

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

Отвечает Boriss

Здравствуйте, ROTTEN!
В приложении пример, как найти файлы в директории. Найдя, с помощью функции ChangeFileExt из модуля SysUtils делаешь задуманное. Надо только проверять - бывают ведь файлы с одинаковыми именами, но разоичными расширениями :))

Приложение:

Ответ отправлен: 20.01.2004, 17:56
Отправитель: Boriss


Отвечает Pawel

Доброе время суток, ROTTEN!
Используем или функцию WinApi (FindFirst,findnext) для поиска фаилов или компонент FileListBox.
Потом переименовываем фаилы

Ответ отправлен: 19.01.2004, 20:43
Отправитель: Pawel


Отвечает samum2000

Здравствуйте, ROTTEN!
Предлагаю тебе использовать такую функцию
procedure TForm1.Button1Click(Sender: TObject);
var
F: TSearchRec;
template,temp: string;
begin
template:='C:mydir*.txt';
if findfirst(template,faAnyFile-faDirectory,f)=0 then
begin
temp:=f.name;
delete(temp,pos('.',temp),length(temp)-pos('.',temp)+1);
RenameFile(extractfilepath(Template)+f.Name,extractfilepath(Template)+temp+'.ttt');
end;
while findnext(f)=0 do
begin
temp:=f.name;
delete(temp,pos('.',temp),length(temp)-pos('.',temp)+1);
RenameFile(extractfilepath(Template)+f.Name,extractfilepath(Template)+temp+'.ttt');
end;
FindClose(f);
end;
Она переименует все файлы из директории указанной в Template.
Попутного ветра!

Ответ отправлен: 22.01.2004, 15:05
Отправитель: samum2000



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

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

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

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

Ваше имя:

Ваш e-mail:

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


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

Ваш вопрос:


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


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


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

Программисту
Assembler (23)
C / C++ (16)
Perl (3)
Builder / Delphi (16)
Pascal (17)
Basic / VBA (5)
Java / JavaScript (4)
PHP (13)
Криптография (5)
WinAPI (10)
Радиоэлектроника (2)
Пользователю
Windows 95/98/Me (37)
Windows NT/2000/XP (56)
"Железо" (28)
Поиск информации (17)
Администратору
Windows NT/2000/XP (28)
Linux / Unix (9)
Юристу
Гражданское право (17)
Семейное право (11)
Трудовое право (13)
КоАП (12)

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




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


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

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

В избранное