Здравствуйте!! Очень благодарен вам за подробный ответ,благодаря которому разобрался наконец как втиснуть файл в StringGrid. Не хочу показаться назойливым но если не трудно скажите можно ли втиснуть этот файл в DBGrid и можно ли использовать SQL в StringGride. С уважением Антон.
Добрый день, антон! DBGrid1.Columns.LoadFromFile(); Если будут вопросы пиши. Ответ отправлен: 18.01.2004, 19:25 Отправитель: Pawel
Вопрос № 1255
Приветствую Вас. У меня к вам два вопроса: 1. Почему не работает метод Image1->Canvas->Pixel[i,j] для Windows Metafile'ов? 2. Что нужно сделать, чтобы в TImage можно было загружать картинки *.jpg? Удачи всем Вам!!!
Здравствуйте, 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 в котором находится диск. И если можно по подробнее Заранее спасибо всем откликнувшимся
Приветствую Вас, 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'
Здравствуйте, 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) Как перехватить весь звук идущий на колонки, чтобы потом сохранить.
Приветствую Вас, Zarmi! Этот модуль я нашел в интернете. Он точно работает под W2k и WinNt, а вот проверить под XP пока не удалось, но кажется он должен работать, я на это надеюсь.
Приложение: Ответ отправлен: 21.01.2004, 11:21 Отправитель: samum2000
Вопрос № 1259
Привет экспертам, Необходим модуль на Pascal (Delphi) для работы с SMS с процедурами отправки сообщений с компьютера абоненту так и наоборот. Я очень хотел бы чтобы Вы ответили как можно скорее и попросил бы Вас выслать исходники с примерами, или ссылки на статьи или иную документацию по этой теме. Заранее балгодарен, Рустем.
Здравствуйте, Rustem! Вот с примерами: http://lru.voxnet.ru/modules.php?name=News&file=article&sid=41 Ответ отправлен: 20.01.2004, 17:51 Отправитель: Boriss
Вопрос № 1260
Привет. Чувствую себя последним ламаком, но... Подскажите, как, при заданной директории, изменить расширения всех файлов из этой директории на какое-нибудь? Количество файлов неизвестно. Заранее спасибо.
Здравствуйте, 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.