следующая тема »

[19 Апрель 2024, 15:41:49]

Новости, реклама:

[19 Апрель 2024, 15:41:49]

Новости, реклама:

[Lanser]

 Начинающие и не только Делфисты! Задавайте свои вопросы и Вас услышат, помогут, подскажут...

[Lanser]

 Первый вопрос: кто знает - подскажите, как обеспечить правильную работу компонента StatusBar? Пробовал через Timer но что-то не получается. Производится обработка данных, процедура с таймером включается и работает, но процесс выполнения в соответств. компоненте не отображается. Только по окончанию процесса выдается 100%.

[Tal]

StatusBar1.Panels[0].Text := IntToStr(iProgress);
Что тут может не отображаться???

[Tal]

procedure TForm1.Button1Click(Sender: TObject);
var
 i : integer;
begin
 for i := 1 to 100 do begin
   StatusBar1.Panels[0].Text := IntToStr(i);
   StatusBar1.Refresh;
   sleep(100);
 end;
end;

[Tal]

Вообще жаль но по-моему делфи умирает... если только борланды не продвинут таки Delphi.Net

[Lanser]

 А как же Delphi 8? По-моему там есть поддержка .Net, или я что-то путаю.

[vervolf он же Бегемот]

Есть. Только её не доделали. Я у себя поставил. Поюзал, да и перешёл на 7. Что-то мне не нравиться. Слышал вроде 2005 есть или это также 8?

[Tal]

Топик есть на 2 странице, по 2005 делфи

[Lanser]

 Подскажите как создать Alias для связи приложения с MS Excel (необходимо вытаскивать данные из разных листов), а то я что-то подзабыл.

[Tal]

Закладка Servers - компонент ExcelApplication, кидаешь на форму,  и юзай интерфейс Excelя

[Lanser]

 Мне нужно связаться с книгой Excel-я и не с одним листом.

[Tal]

ну правильно, что типа
procedure TForm1.Button1Click(Sender: TObject);
var
 wb : _WorkBook;
 ws : _Worksheet;
begin
 ExcelApplication1.Connect;
 try
   ExcelApplication1.Visible[0] := true;
   {wb := ExcelApplication1.Workbooks.Open('d:\test.xls', EmptyParam,
     EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
     EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);}
   wb := ExcelApplication1.Workbooks.Add('d:\test.xls', 0);
   ws := wb.Worksheets.Item[1] as _Worksheet;
   ws.Cells.Item[1, 1] := 'blabla';
 finally
   ExcelApplication1.Disconnect;
 end;
end;

[Tal]

На самом деле метод Open  что то трапается, нет времени смотреть, но на самом деле подключиться к Excелю очень просто, и есть куча способов, с ранним связыванием (как на примере) или поздним, выбирай какой хочешь, а в инете примеров просто вагон

[Tal]

А вот линк нашел, по этой инфе я когда то учился
ИСЧЕРПЫВАЮЩЕ :
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=249

[Lanser]

 Спасибо за советы. А есть ли что-либо подобное для Access-a?

[Tal]

Не знаю, конечно, зачем к эксцесу обращаться через оле, если тебе нужно работать с таблицами, запросами вообщем с данными просто используй ADO,  и подключайся к таблицам Access, а вообще Ole сервера есть практически в любых серьезных программах - весь офис, AutoCAD, Corel даже 1с.

[Shura]

procedure TForm1.Button1Click(Sender: TObject);
var
  i : integer;
begin
  for i := 1 to 100 do begin
    StatusBar1.Panels[0].Text := IntToStr(i);
    StatusBar1.Refresh;
    sleep(100);
  end;
end;

Вместо всяких рефрешей и слипов делается Application.ProcessMessages();

Кидайте вы дельфи, не очень перспективное направление. Я бы не выбирал эту среду для работы.

[7floor]

Вместо всяких рефрешей и слипов делается Application.ProcessMessages();

1. Sleep() тут для задержки, имитирующей какую-то полезную работу. Это ведь пример.
2. Не факт, что Application.ProcessMessages() лучше в каждом конкретном случае. Он делает совсем другое - процессает мессаги, в т.ч. мессагу на отрисовку. При этом может иметь нежелательный побочный эффект - позволит юзеру нажать какую-нибудь кнопку, которую тиснуть не стОит сейчас. Refresh() же, делает только то, что делает :-) Хотя, конечно, при вдумчивом подходе, ProcessMessages() позволяет реализовать всевозможные паузы и канселы, если лень заморачиваться с многопоточностью :-)

Кидайте вы дельфи, не очень перспективное направление. Я бы не выбирал эту среду для работы.

Just offtopic :-)

[Lanser]

 Появился еще один вопрос: подскажите, как запустить другое приложение из создаваемого приложения Delphi? Например нужно запустить WinRAR.

[Tal]

Самое тривиальное решение WinExec(), просто запускает приложение винды, также ShellExecute() - можно извратится с параметрами, нужный вид окна или просто открыть Explorer с нужной папкой
и самое продвинутое CreateProcess - позволяет дождаться момента когда процесс отработает, и твоя прога продолжит свою работу только после окончания данного процесса. Все эти апи смотри в MS SDK хелпе, там нормально описано

[Lanser]

Дизайнерский вопрос: изпользование шкурок, как и чем.

[Tal]

Тебе нужно сделать что то типа WinAmp? Тогда
вообще по%%ца придеться
Если да смотри в поисковиках "задание окна непрямоугольной формы" - факов по этой теме дофига

[Shura]

1. Sleep() тут для задержки, имитирующей какую-то полезную работу. Это ведь пример.
2. Не факт, что Application.ProcessMessages() лучше в каждом конкретном случае. Он делает совсем другое - процессает мессаги, в т.ч. мессагу на отрисовку. При этом может иметь нежелательный побочный эффект - позволит юзеру нажать какую-нибудь кнопку, которую тиснуть не стОит сейчас. Refresh() же, делает только то, что делает :-) Хотя, конечно, при вдумчивом подходе, ProcessMessages() позволяет реализовать всевозможные паузы и канселы, если лень заморачиваться с многопоточностью :-)

в данном конкретном лучая как раз ProcessMessages самый лучший способ, т.к кроме статус бара еще и форма рефрешнется

[Shura]

Дизайнерский вопрос: изпользование шкурок, как и чем.

советую http://www.delphikingdom.ru/ -  там ответы на все твои вопросы касательно дельфи

[7floor]

в данном конкретном лучая как раз ProcessMessages самый лучший способ, т.к кроме статус бара еще и форма рефрешнется

А что, просили рефрешить всю форму? :-) А про нажимания кнопок, которые не предусмотрено нажимать, я уже писал.

[Lanser]

 Вот возникла проблемка. Приложение разработано, работает. Приходится обсчитывать динамический массив "в разных направлениях". Но возникает проблема: начинает работать, загружает систему по максимуму и вешает.
Как сделать, чтобы приложение не так сильно сьедала ресурсы?

[Shura]

Вот возникла проблемка. Приложение разработано, работает. Приходится обсчитывать динамический массив "в разных направлениях". Но возникает проблема: начинает работать, загружает систему по максимуму и вешает.
 Как сделать, чтобы приложение не так сильно сьедала ресурсы?

как это "вешает"? программа не может вычислениями повесить систему.
вообще все большие вычисления в отделльном потоке выполняй. Можешь ему делать Suspend если хочешь что-то приостановить

[Shura]

А что, просили рефрешить всю форму? :-) А про нажимания кнопок, которые не предусмотрено нажимать, я уже писал.

Таки нажать на кнопку после одного Application.ProcessMessages ооооочень проблематично. Однако и это можно предусмотреть ...

[7floor]

Таки нажать на кнопку после одного Application.ProcessMessages ооооочень проблематично. Однако и это можно предусмотреть ...

Таки нажать на кнопку ты можешь в любой момент до ProcessMessages, а она отработает в момент ProcessMessages. Это раз. А два - это то, что таких ProcessMessages будет не 1 а дофига, столько, сколько раз будет меняться статус при какой-то обработке. Так что, жми хоть обожмись :-)
А про предусмотреть я сам писал, перечитай выше.

[7floor]

Вот возникла проблемка. Приложение разработано, работает. Приходится обсчитывать динамический массив "в разных направлениях". Но возникает проблема: начинает работать, загружает систему по максимуму и вешает.
 Как сделать, чтобы приложение не так сильно сьедала ресурсы?

Во-первых да, если ты не выставил сам нарочно HIGH_PRIORITY или (не дай боже) REALTIME_PRIORITY своему процессу, то систему повесить никак не выйдет. А то, что прога, отрабатывая циклы (не работая по событиям, например, по таймеру, прерываниям и т.п.) съедает 100% времени ЦП - что тут удивительного? Как бы компьютеры предназначены для того, чтобы работать, а не простаивать. Вот, например, видеопроигрыватель, тут другое дело. Он должен 25 (например) раз в секунду нарисовать очередной кадр. Если процессор справляется с поставленной задачей за 1/100 секунды, мы видим, что он жрет 25% процессорного времени. Плейер не должен приступать к декодированию следующего кадра как можно скорее после декодирования предыдущего, а то на быстрых тачках не успеешь в сюжет вникнуть :-) Вот он и курит после каждого кадра. Это так, грубо, для наглядности. У твоей же проги стоит задача посчитать данные как можно быстрее, без привязки к реальному времени. И ты что, хочешь, чтобы она тем не менее, не грузила проц на полную? Так не бывает :-)

[Tal]

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

[Lanser]

 смысл программы именно в том, чтобы расчитывать одни и те же вычисления с большим количеством данных. И еще маленькое уточнение: как кто считает лучше загрузить все данные в память и оперировать ими или же считывать с диска по мере необходимости? Если загрузить все данные - требуется много памяти, читать с диска - процесс затягивается...

[Shura]

смысл программы именно в том, чтобы расчитывать одни и те же вычисления с большим количеством данных. И еще маленькое уточнение: как кто считает лучше загрузить все данные в память и оперировать ими или же считывать с диска по мере необходимости? Если загрузить все данные - требуется много памяти, читать с диска - процесс затягивается...

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

[Tal]

2Lanser
Какого рода данные?
В каких структурах хранишь на диске и в памяти?
Хотя бы примерно объем данных?
Какого рода манипуляции/вычисления с данными?
Как часто происходят вычисления?

Ты неточно поставил задачу

[Lanser]

 Данные хранятся в Excel - файле. Данные - текстовые и численные. Объем данных - от 2 Мb до 20 Mb. Сложно понять, что именно зависает. Иногда система даже на три клавиши не посылается...
Вычисления - очень интенсивные, В одном столбце приходится подсчитывать количество символов ("+" или "-") и анализировать построчно. Далее - разбиение по признакам, слитие данных соотв. признака в отдельный файл, подсчитывание среднего арифметического также по соотв. признаку... Вот далеко не полный список производимых вычислений...

[Tal]

Ты изначально делаешь неправильно
Я подозреваю что ты через оле лезешь в цикле в ячейки эксцеля и уже лопатишь данные одной ячейки - ЭТО очень медленно, аш 3,14здец, неудивительно что система тормозит.

Я бы делал так : копировал бы в буфер диапазон данных эксцеля, причем блоками строк по 1000, потому что кинуть в буфер сразу 20мб текста тоже еб%%во. Далее :

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 sl : TStringList;
 cp : TClipBoard;
begin
 cp := TClipBoard.Create;
 sl := TStringList.Create;
 try
   cp := TClipBoard.Create;
   sl.Text := cp.AsText;
   ShowMessage('Rec count : ' + IntToStr(sl.Count) + ' Text : ' + chr(10) + sl.Text);
   cp.Clear;
 finally
   cp.Free;
   sl.Free;
 end;
end;

все поля в строке отделены табами, а строки переносом строки, распарсить, можно пихнуть в структуру и потом анализируй себе это будет на порядок быстрее и система не зависнет, причем 20 - 30 мег - это не факт

[Tal]

Да забыл сказать, что перед
cp := TClipBoard.Create;
sl.Text := cp.AsText;
нужно средствами эксцеля выделить и скопировать диапазон ячеек с данными

[Lanser]

 Круто! Спасибо Tal и +!
Может подскажешь "через что" можно менять надписи в диаграмме Excel. Поле "Надпись"

[7floor]

Во, Tal тебе счас насоветует, как побыструхе утечку памяти сорганизовать :-) Tal, исправь ошибку!

[Tal]

Пасибо, не, никогда не загонялся таким, нужно хэлп по виз бейсику смотреть, вроде бы

Set shpDiagram = ActiveSheet.Shape(1)
Set shpDiagram = Nothing

а какое проперти черт его знает

[Tal]

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 sl : TStringList;
 cp : TClipBoard;
begin
 cp := TClipBoard.Create;
 sl := TStringList.Create;
 try
   //cp := TClipBoard.Create;
   sl.Text := cp.AsText;
   ShowMessage('Rec count : ' + IntToStr(sl.Count) + ' Text : ' + chr(10) + sl.Text);
   cp.Clear;
 finally
   cp.Free;
   sl.Free;
 end;
end;

[Tal]

ПРостите был напуган...

[Shura]

таки не хорошо буфер обмена прибивать.
вожно ведь просто данные из excel перекачать в дельфи и там сними работать, не дергая ole ...

раньit так afalina работала, но потом откащались от использования буфера обмена ...

Вообще как вариант можно написать макрос в экселе, который тебе все посчитает, и выдаст результат, и диаграммы исправит. Тебе его только вызвать надо будет. Имхо самое лучше ...

[Lanser]

 Извиняйте, мы парни не местные, VB не знаем, поэтому пишем тем, что имеем  

[Shura]

Извиняйте, мы парни не местные, VB не знаем, поэтому пишем тем, что имеем  

это кстати проще чем дельфи

[Lanser]

это кстати проще чем дельфи

Но мы же не привыкли идти легкими путями  .
Все удовольствие от программирования как раз и заключается в том, чтобы найти в клубке запутанных сущностей простейшие задачи и правильно их реализовать.
Ладно, отвлекся... Как говориться, если гора не идет к Магомету... и т.д. В своей практике никогда не приходилось детать отчет в виде текста и графиков на одной странице А4. Может кто уже делал? Подскажите путь.

[iced]

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

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

PPS. как верно тут упомянули выдёргивание данных поячеечно - ОЧЕНЬ тормозной процесс - надо дёргать всё сразу - ускорит работу на 2 порядка как минимум (по крайней мере так оно было в году 98ом).

PPPS. что бы гуй не вис - пускаем обработку в отдельном треде - это стандартный и правильный путь.

[Lanser]

 To IceD: опиши пример отдельного треда.

[iced]

1. делаем тред
2. пускаем обработку в нём

[Shura]

To IceD: опиши пример отдельного треда.

смотри TThread и delphikingdom там ооочень много примеров

[7floor]

А еще вот тут посмотри:
C:\Program Files\Borland\Delphi7\Demos\Threads
... или где там у тя дельфя стоит

[Lanser]

 Меня давно терзал вопрос: можно ли сделать панель кнопок сложной формы (типа на видеомагнитофонах управляющая)?

[Shura]

Меня давно терзал вопрос: можно ли сделать панель кнопок сложной формы (типа на видеомагнитофонах управляющая)?

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

Найти тебе пример в интернете?

[Lanser]

 To Shura: Вопрос был по форме, а не по сложной кнопке управления. Было бы замечательно увидеть пример. Но как прорисовывать? В чем и какой формат изображения?

[Chevich]

To Shura: Вопрос был по форме, а не по сложной кнопке управления. Было бы замечательно увидеть пример. Но как прорисовывать? В чем и какой формат изображения?

Любая кнопка это по-сути окно.
Окно может быть сделано композицией графических объектов (полигонов, кругов, квадратов, точек и т.д.)
Значит любая кнопка может выглядеть как угодно..  
Только это уже не столько Дельфи сколько голый АПИ...  
И море гемора..
И пример этого надо искать не в Дельфи, а в МСДН-е...

[Paladin]

" Только это уже не столько Дельфи сколько голый АПИ..."

Та какой апи! Этож основы объектно ориентированного программирования! )))

[Chevich]

Та какой апи! Этож основы объектно ориентированного программирования! )))

ИМХО все ж голый АПИ
----------------------------------------------------
Constructor TSplashForm.Create(AOwner:TComponent);
Const B=8; D=100+B;
Var R1,R2:HRgn;
Begin
 // Создаем форму и 2 временных эллипсных региона
 Inherited Create(AOwner);
 R1:=CreateEllipticRgn(B,B,Width-B,Height-B);
 R2:=CreateEllipticRgn(D,D,Width-D,Height-D);
 // Создаем результирующий регион, как разность первых двух
 FRgn:=CreateEllipticRgn(B,B,Width-B,Height-B);
 CombineRgn(FRgn,R1,R2,RGN_DIFF);
 // Устанавливаем регион окна и освобождаем временные ресурсы
 SetWindowRgn(Handle,FRgn,False);
 DeleteObject(R2);
 DeleteObject(R1)
End { TSplashForm.Create };
-------

[H.A.M.]

Ну лана, делфисты, ответьте плиз на вопрос (когда-то давно надо было-так и не допер как, а ща просто интересно знает ли кто):
Есть два ричэдита. один рид-онли. во втором пишу текст. Нада чтоб в первом (который рид-онли) повторялось все как в первом в плане прокрутки вверх/вниз. Т.е. чтоб по вертикали они были полностью синхронизированы. (в рид-онли-нумерация строк для второго эдита)
P.S.:Я нашел туеву хучу доков на эту тему в нете. Но никто не предложил толкового решения-всегда были недостатки-либо после ввода глюк, глибо када мышой афиговенно быстро скрол подергать все сбивалось, либо еще что-то. Пока никто не смог толком ответить...

[7floor]

А почему сразу дельфисты? Тебе нужны не они, а Win32 API-сты :-)

[Archi]

Ну лана, делфисты, ответьте плиз на вопрос (когда-то давно надо было-так и не допер как, а ща просто интересно знает ли кто):
Есть два ричэдита. один рид-онли. во втором пишу текст. Нада чтоб в первом (который рид-онли) повторялось все как в первом в плане прокрутки вверх/вниз. Т.е. чтоб по вертикали они были полностью синхронизированы. (в рид-онли-нумерация строк для второго эдита)
P.S.:Я нашел туеву хучу доков на эту тему в нете. Но никто не предложил толкового решения-всегда были недостатки-либо после ввода глюк, глибо када мышой афиговенно быстро скрол подергать все сбивалось, либо еще что-то. Пока никто не смог толком ответить...

1) Пользовать GetScrollInfo(...), SetScrollInfo(...), GetScrollPos(...) и SetScrollPos(...).

2) Ловить WM_VSCROLL и ему сопутствующие:
SB_LINEUP
SB_LINEDOWN
SB_PAGEUP
SB_PAGEDOWN
SB_THUMBPOSITION
SB_ENDSCROLL
SBM_GETPOS
SBM_SETPOS

И иллюстрация.


P.S. RTFMSDN!!!

[H.A.M.]

2Nobody: Да, ты круто сказал-много и по делу. Я не иронизирую, все ОК! Но это все пробовалось. Более того, мне в свое время высылали готовый код (на, мол, ламер, посмотри)-но я же говорю: не падеть. Простым ловлением ничего не получается. А, лано, забыли. Так спросил, от нечего делать.
И ваще, это ж несерьезно-текстовый редактор на дельфи!!!

[Lanser]

 Как создать таблицу в Interbase (Paradox) в программе?

[Archi]

Простым ловлением ничего не получается.

Мало поймать, надо еще обработать и вернуть.

P.S.По делу была только одна строчка, про MSDN.

P.P.S. Чему вас в университете учат?

[H.A.M.]

Нас в универе? Ну вот:

Белорусский язык, бухгалтерский учет, философия, история, теория вероятности...

Ну ты понял, да?

Мало поймать, надо еще обработать и вернуть.

ОБРАБОТАТЬ И ВЕРНУТЬ. Ну дык не настолько нас не учат Ж))

[Draco]

Вот такая проблема... Есть форма, есть панелька(TPanel) с фасками. Как изменить цвет фаски?

[Draco]

Вид такой...

[Lanser]

 Еще вопросик: Подскажите свойства RichEdit.* для выравнивания текста по левому/правому краю и центровке?

[Draco]

Фаска, это Bevel. Я уже нашёл, королевство делфи рулит в таких вопросах. Надо писать свой компонент, в котором переопределять метод paint