Вопросы по Delphi (все версии) - часть 3 - [2] :: Прикладное программирование :: Компьютерный форум Ru.Board
Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?
Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3

Модерирует : ShIvADeSt

ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383  Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

   

RostY



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
пока все пользователи не отключатся то файл, наверное, остается открытым и нет смысла его копировать
Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 10:21 28-03-2007
whitewolfs

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
неа данные нормально сохраняются. млин вот засада, неужели нет решения...
Всего записей: 300 | Зарегистр. 21-10-2005 | Отправлено: 15:02 28-03-2007
yuish

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Кто знает и может подсказать каким образом, с помощью каких компонентов, можно создать что-то типа Заметки в MS Outlook?
Что бы так же отображались в проге и на экране.
Всего записей: 218 | Зарегистр. 10-02-2003 | Отправлено: 17:19 28-03-2007
killerbeanjeka

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
yuish
Если я правельно понял и речь идет о календаре как в Outlook, то есть компонент cxScheduler из набора DevExpress
Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 10:54 29-03-2007
yuish

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
killerbeanjeka
Нет. не о календаре. А о Заметках.
Всего записей: 218 | Зарегистр. 10-02-2003 | Отправлено: 11:36 29-03-2007
killerbeanjeka

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
yuish
если речь идет о стиках, то это можно и самостоятельно сделать. Это обычное окно у которого кстановлено свойство "поверх всех окон", или я чего то не понимаю?
Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 12:59 29-03-2007
yuish

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
killerbeanjeka
Ну очень приблизительно - то да. Меня интересует именно подобный внешний вид, как на раб.столе так и отображение стиков в самой программе  - как в оутлуке.  
Всего записей: 218 | Зарегистр. 10-02-2003 | Отправлено: 13:22 29-03-2007
killerbeanjeka

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
Меня интересует именно подобный внешний вид, как на раб.столе

любой компонент с пожжержкой скинов, или делается форма без краёв (Bordertyle := bsNone), и самостоятельно делаются желтые кнопочки и Memo

Цитата:
тображение стиков в самой программе  - как в оутлуке

в OutLook'e отображается обычный ListView с ViewStyle := vsIcon
 
Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 13:54 29-03-2007
Shadi



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет All.
Есть проблема. Работаю с ODAC  и нужно запихать CLOB через хранимую процедуру.
 
Вот так у меня идет без проблем..
   
Цитата:
with dmod do
    begin
      qryShot.Open;
      qryShot.Append;
      qryShotNAMESHOT.AsString    := strShotName;
      qryShotDEPARTMENT.AsInteger := itgDepartment;
      if btnToPivot.Visible = ivAlways then
      begin
         TBlobField(qryShotSHOT).LoadFromFile(ExtractFilePath(Application.ExeName) + 'grid.ini');
         qryShotNUM.AsInteger     := 1;
         qryShotFILENAME.AsString := 'grid.ini';
      end else
      begin
         TBlobField(qryShotSHOT).LoadFromFile(ExtractFilePath(Application.ExeName) +'pivot.ini');
         qryShotNUM.AsInteger     := 2;
         qryShotFILENAME.AsString := 'pivot.ini';
      end;
      qryShot.ApplyUpdates;
      Pl_COMMIT;
    end;

 
 
Но такой подход не устраивает...
 
Через хранимую процедуру делаю так и не прет..
 
   
Цитата:
      with dmod.spAddShot do
      begin
        Close;
        ParamByName('ShotName_').AsString  := strShotName;
        ParamByName('idDep_').AsInteger    := itgDepartment;
        if btnToPivot.Visible = ivAlways then
        begin
           ParamByName('Shot_').LoadFromFile(ExtractFilePath(Application.ExeName) + 'grid.ini', ftOraClob);
           ParamByName('num_').AsInteger     := 1;
           ParamByName('fileName_').AsString := 'grid.ini';
        end else
        begin
           ParamByName('Shot_').LoadFromFile(ExtractFilePath(Application.ExeName) +'pivot.ini', ftOraClob);
           ParamByName('num_').AsInteger     := 2;
           ParamByName('fileName_').AsString := 'pivot.ini';
        end;
        ExecProc;
        if ParamByName('msqErr').AsString <> 'OK' then
        begin
          MessageBox(0, pchar(ParamByName('msqErr').AsString), '&#206;&#248;&#232;&#225;&#234;&#224;', MB_ICONSTOP or MB_OK);
          Pl_ROLLBACK;
        end else
          Pl_COMMIT;
      end;
 
 

 
Может кто знает как победить эту проблему...
Всего записей: 110 | Зарегистр. 07-05-2003 | Отправлено: 15:17 29-03-2007 | Исправлено: Shadi, 15:22 29-03-2007
Kr_Alex



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
нужно передать исходники проекта, но есть опасения что всех бабок не заплатят. поэтому есть вот такая идея
у меня почти все формы наследуются от frmSome
хочу туда добавить скажем Application.Terminate после такой то даты. и передать только uSome.dcu и uSome.dfm.
Но почему при открытии такого проекта появляются сообщения Ancestor not founded, как такое можно сделать?
Всего записей: 120 | Зарегистр. 16-07-2004 | Отправлено: 15:44 29-03-2007
yuish

Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
killerbeanjeka

Цитата:
любой компонент с пожжержкой скинов, или делается форма без краёв (Bordertyle := bsNone), и самостоятельно делаются желтые кнопочки и Memo

 
то что Bordertyle := bsNone - я и так догадываюсь. но тогда форма не перетаскивается. как тогда таскать форму по экрану (как перетаскивать окна за рабочую область, увеличивать и уменьшать размер формы, не имея бордюра)
 

Цитата:
в OutLook'e отображается обычный ListView с ViewStyle := vsIcon

 
Спасибо. буду пытать
Всего записей: 218 | Зарегистр. 10-02-2003 | Отправлено: 15:51 29-03-2007
killerbeanjeka

Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Цитата:
как тогда таскать форму по экрану

сам не пробовал, но возможно эта ситуация решается по принципу описаному в следующей статье
Подробнее... [?]
может и с изменением размера формы здесь можно что-то придумать
Всего записей: 86 | Зарегистр. 27-09-2006 | Отправлено: 16:11 29-03-2007
RomanTim

Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
yuish
Таскание и сайзинг формы без бордюра можно сделать с помощью обработчика сообщения WM_NCHITTEST [?]
Всего записей: 375 | Зарегистр. 11-09-2003 | Отправлено: 19:31 29-03-2007 | Исправлено: RomanTim, 19:33 29-03-2007
SERGE_BLIZNUK

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
whitewolfs
Цитата:
Это нужно не для архивации. Это для обработки базы на локальной машине, много раз за день и при этом база на локале всегда должна быть актуальной!

к сожаление, эта задача НЕ РЕШАЕТСЯ. Поверьте мне, FoxPro имеет свой кэш и реально увидеть можно изменения ТОЛЬКО когда база закрывается (а потом может быть опять открыта. Всё остальное - как повезёт - т.е. НЕ ГАРАНТИРОВАННО. Может и так, что пользователь изменил - изменения отобразились в файле, а может и нет...
А может отобразиться только ЧАСТЬ изменений... ;-((
И, кстати, только не смейтесь, это ещё зависит от железа - в частности от сетевого оборудования и той машины, где лежат DBF (файл-сервера).
Ну, если вы всё равно уверены, что вам нужны новые данные и уверены, что они всё же есть уже в файлах на сети - считайте простенький хэш (лучше только по тем полям, которые изменяются). Кстати, это легко сделать чисто на нативном коде без использования дополнительных библиотек и т.д.
 
RostY
Цитата:
.к. ДБФ не рассчитан на многопользовательский режим работы получиш кучу гемороя
имхо, Вы не правы. Конечно, к настоящей СУБД Foxpro никакого отношения не имеет. Но, есть реальная задача (порядка 130 тыс. записей), одновременная работа порядка 30 человек (именно РАБОТА, внесение квитанций, редактирование карточек + отчёты). связи с другими АРМ'ами (тоже на Foxpro) Всё работает. И даже на пеньках 200.
Хотя, конечно, согласен, это технологии позавчерашнего дня...
Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 06:18 30-03-2007
rs

Advanced Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
подскажите, пожалуйста, что нужно для решения в общем-то простой задачи:
 
 --
 требуется: простейший обмен текстовыми сообщениями внутри LAN (без доступа в инет!) с возможностью отправки сообщения а)отдельному пользователю или б)группе пользователей в)всем пользователям; больше никакая функциональность не нужна; среда разработки Delphi7
 --
 
 просмотрел всё что мог в нете на тему IRC, накачал примеров с исходниками - всё либо очень старое (5-летней давности и не собирается (не хватает каких-то файлов), либо вполне свежее, строится нормально, но воспользоваться этим не получается, вероятно я что-то не понмаю - в общем запутался я окончательно
 
 вот в частности, пример IRC-клиента (http://coderszone.info/?option=com_content&task=view&id=10&Itemid=27), использующий компоненту TIdIRC (из Indy) - нормально собрал приложение, при отправке сообщения без подключения к серверу ("от себя к себе, внутри приложения") сообщение этим же приложением принимается, т.е. кое-что вроде бы работает
 
 далее, запустил это же приложение на другой машинке в своей локальной сети - приложения другу друга не видят; при попытке подключиться через меню требуется ввести адрес (ввожу ip другого компа) и порт (какой ввести - так и не понял) - естественно соединение не устанавливается
 
 1)правильно ли я понимаю, что сервер, к которому я должен подключиться - это один из внешних (вне моей LAN) серверов в нете? и этим сервером не является это же моё приложение на другойм компе?
 
 2)могу ли я каким либо образом разместить такое серверное приложение у себя в локальной сети? могу ли я его построить в дельфи, как? нужны ли для этого компоненты IdIRCServer (из Indy)? что это серверное приложение из себя должно представлять, как его настроить?
 
 3)может быть есть готовые, в исходниках, примеры для Delphi7 делающие то что мне нужно?
 
 4)есть ли где в сети примеры использования IRC-компонент из Indy? здесь http://www.indyproject.org/Sockets/Demos/index.aspx примеров IRC-приложений вроде бы нет...
 
 --
 
 зы
 5)может быть мне вообще не IRC-методы нужны?
 как тогда проще всего решить поставленную задачу?
 если можно обойтись без серверного приложения - тоже неплохо
 
 --
 tnx
 
 
 
Всего записей: 1344 | Зарегистр. 19-04-2003 | Отправлено: 08:13 30-03-2007
Arvur



Silver Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
rs

Цитата:
 5)может быть мне вообще не IRC-методы нужны?  
 как тогда проще всего решить поставленную задачу?  
 если можно обойтись без серверного приложения - тоже неплохо  

Имхо действительно из пушки по воробьям На 99,9% уверен, что нужно искать готовое решение.
 
Во-первых, в рунете точно бродили исходники чатов для локалки - и именно на делфи. Есть вероятность, что подобное лежит на torry в приложениях.
Во-вторых, краем уха слышал, что можно реализовывать общение в локалке через udp-протокол, при этом сервер вроде как не нужен.
А еще можно поставить icq corporate server - та же аська, но только внутри локалки. Для облегчения жизни пользователей - взять icq-клон Miranda.
Всего записей: 2111 | Зарегистр. 18-01-2002 | Отправлено: 08:57 30-03-2007
vserd

Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Kr_Alex
Если есть исходник все нормально открывается?
 
Когда то встречал в FAQ вопрос о том как зарегистрировать форму так, чтобы появлялись published свойства в инспекторе объектов . Попробуй поискать, может поможет.
Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 10:31 30-03-2007
RostY



Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Еще можно через netsend посылать. если нужно, могу дати пример на дельфи.
Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 10:32 30-03-2007
Derrick Morgan



Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
кто знает как скрывать PopupMenu если мышка не находится на нём
Всего записей: 11 | Зарегистр. 26-03-2007 | Отправлено: 13:28 30-03-2007
GreatOne



Junior Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Народ!
Если я ставлю дельфи под администратором, а если использую под другой учеткой - то у меня не отображаются некоторые его компоненты. Как сделать чтобы они отображались? Из-за чего они не отображаються?
Всего записей: 85 | Зарегистр. 15-03-2007 | Отправлено: 13:48 30-03-2007
   

Страницы: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi (все версии) - часть 3
ShIvADeSt (07-04-2008 02:27): продолжение в http://forum.ru-board.com/topic.cgi?forum=33&topic=9383


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2025

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru