» Вопросы по Delphi (все версии) - часть 3

deks
А ты смотри внимательнее!!!!!!!!

scharhan
А какое именно сообщение?
По поводу FileCtrl - у меня далеко не один проект использует этот модуль и вот ни капельки это не сказывается на работоспособности. Platform unit говорит о том, что модуль использует функции, специфичные для конкретной платформы, что, как я уже писал, влияет только на кроссплатформенные приложения. Можно его конечно и выкинуть из проекта, только вот как-то да придется реализовывать аналоги его функций

Все облазил, но ответа не нашел.
Создал базу данных Access. Подключил ее через ADO. В базе данных есть три таблицы. VOBTable, первого уровня, PVOBTable у которой есть поле, по которому я ее связываю с первой индексы VOB->OB, через DataSource, PPVOBTable которую я связываю с PVOBTable через два MasterFields, OBR->VOB POBR->PVOB, и сама таблица, где у меня хранятся изделия CovkTable, которая в свою очередь связана с PPVOBTable тремя MasterFields. Все это сделано, для того, чтобы реализовать некоторое подобие баз 1С, в которых есть категория товаров, подкатегория товаров, еще более подробная подкатегория, и сам список товаров, которые входят в эту подкатегорию. Т.е. я на компонент DBGrid на DblClick повесил изменение DataSource, от которого оно показывает. Все бы ничего, но есть пара "но".
1) Не получается у меня любую из этих таблиц, кроме самой первой сортировать. Если я например, таблицу изделий отсортирую методом CovkTable.IndexFieldNames:='Name1'; то появляется в процессе работы программы ошибка "Не удается найти объект в семействе, соответствующий требуемому имени или порядковому номеру". Как с этим бороться? я как понимаю, что пока база маленькая, то это вроде и не страшно, но ведь она будет пополняться, и как что потом искать? Выручайте, я пока еще только разбираюсь с базами.
2) И еще, может я как-то не правильно организую базу данных, может есть другие способы, как можно организовать разделы, и подразделы, без создания дополнительных таблиц?

RomanTim
Тогда незнаю, но винда выдает отчет об ошибке, может я пришлю тебе на мыло прогу, она около 300 KB щас весит, - это проигрыватель обычный! БЕЗ ВИРУСОВ!!!

Добавлено:
OOD
http://xproger.mirgames.ru/?id=1&page=3
НЕЗНАЮ, МОЖЕТ ЗДЕСЬ АСЬКИ ИСХОДНИК НАЙДЕШЬ!!!

Как можно поместить в dll библиотеку jpeg или bmp рисунок?

Нужна помощь.Делаю базу данных.Надо чтобы в DBGird при клике на строке открывалась форма на которую идёт ссылка.Не знаю как лучше объяснить.
Типа как в 1С.
Как это сделать?

Notebook1000
Простой поиск по гугл дает:
http://www.howtodothings.com/computers/a1176-embedding-files-as-resources-in-a-delphi-executable.html

M1chA 1. текущую запись в гриде можно определить по событию AfterScroll для DbGrid.DataSet. В этом событии можно запомнить значение КЛЮЧевого поля текущей записи
2. По dblClick на гриде открываешь форму-редактор.
3.a если DbGrid.DataSet совпадает с DataSet контролов формы, то ничего не делаешь
3.b иначе Методом DataSet.Locate переходишь на нужную запись, зная её КЛЮЧ
Типа как в 1С я не знаю что ты имел в виду. Как ты объяснил, я так и понял

В какую сторону копать и с чего начинать, что бы сделать простейшую прогу по приему факсов?

2jONES1979
Вот!Как сделать так чтобы
Цитата:

dblClick на гриде открываешь форму-редактор.

?

yuish
http://sourceforge.net/projects/tpapro

Значит здравствуйте у меня такая проблема. Мне нужно создать OpenPictureDialog ну и кнопку к нему с этим все ясно, но как сделать так чтобы файл изображения открытый там скопировался в корневую папку с прогой. Нужно срочно.Help заранее благодарен=)

MOO123
ParamStr(0) - путь к экзешнику
ExtractFileDir() - папка, в которой лежит файл

RomanTim
Можешь подробней объяснить. А то я не понял путь к какому exe когда у меня *.bmp. И объясни все как говорится на пальцах.

Цитата:

Можешь подробней объяснить. А то я не понял путь к какому exe когда у меня *.bmp. И объясни все как говорится на пальцах

Наверное RomanTim имел в виду такое:


Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
CopyFile(pchar(OpenPictureDialog1.FileName),pchar(extractfilepath(paramstr(0))+extractfilename(OpenPictureDialog1.FileName)),false);
end;

Cristoff1
Пасиба

M1chA что то вроде

Код:
procedure TbroPersonStateForm.dbgridPersonStateDblClick(Sender: TObject);
begin
PersonCardEditorForm := TPersonCardEditorForm.Create(Self);
try
PersonCardEditorForm.ShowModal;
finally
PersonCardEditorForm.Free;
end;
end;

2jONES1979
Блин,не получается.Если я тебе пришлю исходник,покажешь как надо сделать?

нужно написать монитор файлов, распечатанных на принтерах в W95/98/2000/XP

нашёл пример SpyPrinter for Delphi, но под W95/98 он не работает... да в XP/2000 тоже кривовато пказывает распечатываемые страницы

подскажите, пожалуйста, есть ль способы решения этой задачи

если нет free, может какие-то коммерческие комплекты содержат инструменты мониторинга очереди печати? - к примеру, в DevExpress есть такие возможности?

M1chA ну давай, присылай jones1979 на gmail который com

Всем привет! Написал я такой алгоритм:

procedure TForm1.SendMail;
const
olMailItem = 0;
olByValue = 1;
var
OutlookApp, MailItem, MyAttachments: OLEVariant;
begin
try
OutlookApp := GetActiveOleObject('Outlook.Application');
except
OutlookApp := CreateOleObject('Outlook.Application');
end;
try
MailItem := OutlookApp.CreateItem(olMailItem);
MailItem.Recipients.Add('test@mail.ru');
MailItem.Subject := 'Your Subject';
MailItem.Body := 'Your Message';
myAttachments := MailItem.Attachments;
myAttachments.Add(ExtractFilePath(Application.ExeName)+'Report.rar', olByValue, 1, 'Name of Attachment');
MailItem.Send;
finally
myAttachments := VarNull;
OutlookApp := VarNull;
end;
end;

Который отправляет емайл через аутлук. Но проблема в том что при отправке нужно в аутлуке подтверждение отправки(типа защита от вирусов и тд), в настройках копался - ниче полезного не нашел. Можно ли как-нить обойти эту фигню?

GreatOne

Цитата:

Можно ли как-нить обойти эту фигню?

Нет.
Единственое решение, которое мне известно - сделать ето как plug-in (что бы изполнялся в Outlook, а не снаружи) и използувать например http://www.add-in-express.com/outlook-security/, что бы обойти защиту.

GreatOne
не надо никаких плагинов, поищи Outlook Redemption

A_V
Да, забыл про Redemption, но он тоже для денги...

А каким компонентом кроме idSMTP можно отправлять емайлы?

Добавлено:
И есть-ли в delphi 7 компоненты Fastnet?

Посоветуйте, что лучше использовать для работы с базой данный Access (*.mdb) в Delphi 2006
(имеется в виду возможность добавления, удаления, редактирования записей)
так , чтобы у пользователя было как можно меньше проблем с установкой моей программы, подключением базы данных и т.д.
ADO?

onyxhall
ADO однозначно. В строке соединения в качестве драйвера указываешь Microsoft Jet OLE DB. Саму строку собираешь динамически (например, при запуске программы или при установке соединения с файлом БД), когда путь к файлу БД известен (например, рядом с exe). И не надо никаких DSN прописывать. Просто копируешь exe и mdb на клиентскую машину и все.

Как показывает практика, берется TADODataDriverEh+TMemTableEh из EhLib и получается счастье .

onyxhall
А еще лучше httр://www.winsoft.sk/Adonis.htm, поставил и забыл DSN.
В копилке имеется.

Cristoff1

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
CopyFile(pchar(OpenPictureDialog1.FileName),pchar(extractfilepath(paramstr(0))+extractfilename(OpenPictureDialog1.FileName)),false);
end;

как здесь изменить путь копирования, я понимаю что надо заменить вот это
"(extractfilepath(paramstr(0))" но как именно?


Добавлено:
Всё с этим разобрался.=)
1.Как сделать кнопку обзор, чтобы не выбирать файл, а папку. Допустим выбрал папку в Edit1 пишется путь к папке?
2. Как сделать так чтобы в текстовом файле заменить одну строчку?