Цитата: AmonRa от 00:41, 13 июня, 2004
Да, таймер, даже не знаю, просто не нравится, сделал через RXClock вродже работает, кстати, кому нужна программулина резервного копирования напишите - скину.

Ну так можно и самому системное время отслеживать...
А в RXClok только один ALARM.

А резервное копирование проще сделать через
планировщик и Батник - меньше возни и менять легче.

Да, чего-то с RX  я поторопился, сделал легче через ProClockLiabel.

А как сделать перезагрузку в Win2000? Права админа есть.

Делаю SQL запрос через Query. Можно ли как=нить при работе программы добывить туда строчку?Или нужно обязательно переписывать весь запрос?

Цитата: AmonRa от 01:13, 27 июня, 2004
Делаю SQL запрос через Query. Можно ли как=нить при работе программы добывить туда строчку?Или нужно обязательно переписывать весь запрос?

Используй параметры или  меняй строки по номерам или добавляй. SQL это TStrings.

могу подкинуть билеты по ГОС экзаменам...там у нас много было по Делфи...

Цитата: Lesya от 03:50, 29 июня, 2004
могу подкинуть билеты по ГОС экзаменам...там у нас много было по Делфи...

Был бы очень благодарен.

Покажите кто-нибудь процедуру копирования каталога со всеми подпапками, а если в папке куда копируют нет определенной подпапки чтобы она создавалась...

А можно на конкретном примере показать как в проге использовать rundll32 с параметрами например: rundll32 shell32,SHExitWindowsEx 0 (закрыть все программы, перегрузить оболочку).

Вот что еще хотел бы узнать: есть програмулина, которую надо КОРРЕКТНО завершить, но она постоянно чего-нить спрашивает (выйти, сохранить и т.п.) как можно научить прогу, которая закрывает отвечать на ненужные вопросы? Если можно, то на примере... Это раз, а два это по базам данных. Как мне сделать суммирование всех столбцов в таблице, кроме первого!?

Вот держите ссылку на электронную версию книги "Библия Delphi"  от Фл?нова Михаила aka Horrific.

     >>>  http://www.vr-online.ru/books/bib.php <<<

На форме есть несколько групбоксов, на них кнопки с надписью "закрыть" как сделать что бы при выборе определенного пункта в меню все эти кнопки нажималисмь? можно конечно нажимать каждую по отдельности, но хотелось бы что бы було попроще и побыстрее...

Ну может тогда подскажите как в приложении сделать связь с таблицей из Access'a? Или хотя бы в какую сторону копать...

Цитата: AmonRa от 22:52, 03 сентября, 2004
Ну может тогда подскажите как в приложении сделать связь с таблицей из Access'a? Или хотя бы в какую сторону копать...

Копай компоненты ADO (или DAO)

Цитата: Vad от 20:56, 05 сентября, 2004
Копай компоненты ADO (или DAO)

ООО, до такой штуки я еще не добрался... Разбираться с ней долго?

Цитата: AmonRa от 00:09, 07 сентября, 2004
ООО, до такой штуки я еще не добрался... Разбираться с ней долго?

От уровня зависит...

Цитата: Vad от 21:24, 08 сентября, 2004
От уровня зависит...

Ну я уже чуток разобрался, только вот косяк какой-то в Accessовсой быз есть куча таблиц, а при подключении через АДО у меня отображается только две которые мне вообще не нужны. Что делать?

Цитата: AmonRa от 02:21, 13 сентября, 2004
Ну я уже чуток разобрался, только вот косяк какой-то в Accessовсой быз есть куча таблиц, а при подключении через АДО у меня отображается только две которые мне вообще не нужны. Что делать?

Так не бывает... :P
Или косяк с подключением или ручки  :nope

Цитата: Vad от 13:10, 14 сентября, 2004
Так не бывает... :P
Или косяк с подключением или ручки  :nope

Ничего, уже победил, но напоролся на другую беду: мне данные из Delphi приложения надо в ворд запихнуть! Нодо что бы открывался новый документ, туда автоматом вставлялись определенные данные и все было красиво! Я делаю так:

V := CreateOleObject('Word.Application');
V.ShowMe;
V.WordBasic.FileNew;
V.WordBasic.Insert(RichEdit1.Text);
while not Query3.Eof do begin
V.WordBasic.Insert(Query3.FieldByName('Ska').AsString);
V.WordBasic.Insert('-------------');
Query3.Next;
end;
V.WordBasic.FileSave;
end;

но при этом запускается какой-то урезаный ворд (на нем отсутствуют все панели!! Как мне сделать привычный вид?! В чем я опять перемудрил?) И вот еще мне надо что бы один символ отображался на всю ширину документа! Такое возможно и как? Вон та штукой когда я пользуюсь выдает сообщение о сохранении документа, как задать директорию и имя файля? Огромное спасибо за содержательный ответ, он мне ОЧЕНЬ нужен!

Цитата: AmonRa от 00:01, 16 сентября, 2004
Ничего, уже победил, но напоролся на другую беду: мне данные из Delphi приложения надо в ворд запихнуть! Нодо что бы открывался новый документ, туда автоматом вставлялись определенные данные и все было красиво! Я делаю так:

V := CreateOleObject('Word.Application');
V.ShowMe;
V.WordBasic.FileNew;
V.WordBasic.Insert(RichEdit1.Text);
while not Query3.Eof do begin
V.WordBasic.Insert(Query3.FieldByName('Ska').AsString);
V.WordBasic.Insert('-------------');
Query3.Next;
end;
V.WordBasic.FileSave;
end;

но при этом запускается какой-то урезаный ворд (на нем отсутствуют все панели!! Как мне сделать привычный вид?! В чем я опять перемудрил?) И вот еще мне надо что бы один символ отображался на всю ширину документа! Такое возможно и как? Вон та штукой когда я пользуюсь выдает сообщение о сохранении документа, как задать директорию и имя файля? Огромное спасибо за содержательный ответ, он мне ОЧЕНЬ нужен!

Я Word обычно не пользую, только Excel. А разбираться некогда...
Так шта сори...

А чем тебе не нравятся стандартные Вордовские компоненты с закладки
Servers?

Это для меня дебри, я и так за этот ворд взялся и проклял все... а вообще трудно там разбираться? А то в Хелпе быстреньго посмотрел, там - пусто... И где можно почитать про эти компоненты??? А может у Тебя примеры есть? Хотя бы эхелевские, там посмотрю, перестроюсь...?!

Цитата: AmonRa от 00:14, 19 сентября, 2004
Это для меня дебри, я и так за этот ворд взялся и проклял все... а вообще трудно там разбираться? А то в Хелпе быстреньго посмотрел, там - пусто... И где можно почитать про эти компоненты??? А может у Тебя примеры есть? Хотя бы эхелевские, там посмотрю, перестроюсь...?!

Да вообще-то не трудно, только документации нигде нет.
Поищу у себя... завтра.

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

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

Цитата: AmonRa от 14:54, 26 сентября, 2004
Сделал открытие нового дакумента ворда через компоненты, но как всегда все прошло не так как хотел бы: ворд открывается не развернутый, а как-то на полэкрана и проверка на ошибки включается не сразу! Что бы она заработала нужно поставить какой-нибудь символ. Что делать?

Ну, как маленький! Хде исходник?
Телепаты все еще в отпуске....  

Вот этой штукой делаю открытие документа и добавление в него записей, поле "SKA" - Blob. Из статус панелей берутся пути.

Var
FileName, Name:OleVariant;
range1: OleVariant;
i:integer; otv:word;
begin
Greate.Enabled:=False;
memo1.Lines.Add(Line.Text);
WordApplication1.Disconnect;
Query3.Close;
Query3.SQL.Clear;
Query3.SQL.Add('SELECT SKA, tON, TYPE, '+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 )+'."DATE",'
+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 )+'."Time"');
Query3.SQL.Add('FROM "'+StatusBar1.Panels[1].Text+'" '+copy(StatusBar1.Panels[1].Text, length(StatusBar1.Panels[1].Text)-8,5 ) +'');
Query3.SQL.Add('WHERE   (NOTE = ''-OK-'')');
Query3.SQL.Add('   AND  ((DELETED IS NULL)    OR  (DELETED = 0))');
Query3.Open;
WordApplication1.Connect;
FileName:=StatusBar1.Panels[0].Text;
WordApplication1.Documents.Open(FileName,
 EmptyParam, EmptyParam, EmptyParam,
 EmptyParam, EmptyParam, EmptyParam,
 EmptyParam, EmptyParam, EmptyParam);
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
WordApplication1.Visible:=True;
range1 := WordDocument1.Range;
while not Query3.Eof do begin
range1.InsertAfter(#10);
range1.InsertAfter(Query3.FieldByName('Date').AsString+' '+Query3.FieldByName('Time').AsString+' ');
 If Query3.FieldByName('Type').AsBoolean=True
 then
range1.InsertAfter('Приход: ')
 else
range1.InsertAfter('Выход: ');
If Query3.FieldByName('Ton').AsString=''
then range1.InsertAfter('- - -')
else
range1.InsertAfter(Query3.FieldByName('Ton').AsString);
range1.InsertAfter(#10);
range1.InsertAfter(Query3.FieldByName('Sw').AsString);
range1.InsertAfter(#10);
range1.InsertAfter('-------------------------------------');
Query3.Next;
end;
Query3.Close;
range1.InsertAfter('ИСП');
range1.InsertAfter(#10);
range1.InsertAfter(Isp.Text);
range1.InsertAfter(#10);
WordDocument1.Range.Font.Size:=10;
WordDocument1.Range.Font.Name:='TimesNewRoman';
 DateSeparator := '.';
 ShortDateFormat := 'dd/mm/yy';
name:=StatusBar1.Panels[2].Text+'\'+Label4.Caption+'_'+DateToStr(SwData.Date)+'.rtf';
WordDocument1.SaveAs(name);
 DateSeparator := '.';
 ShortDateFormat := 'dd/mm/yyyy';
Greate.Enabled:=True;
Table1.Close;


И вот, попутно возник еще вопрос: как можно поменять в Blob-поле размер и имя шрифта?! А то некоректно обрабатываются вордом некоторые размеры и имена!!!