Перейти из форума на сайт.

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

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

ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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 102

   

RostY



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
а грузить DLL не проще ?

Всего записей: 387 | Зарегистр. 11-01-2006 | Отправлено: 12:43 03-02-2006
Andysoft3k

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди добрые подскажите может кто знает как программно опросить эл. счетчик типа "Меркурий"

Всего записей: 19 | Зарегистр. 03-02-2004 | Отправлено: 14:32 03-02-2006
BABAYKA



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SergeBS
ой ....и LoginPrompt=false тоже ставил....пишет:
'Thread Start: Thread ID: 3628. Process Pr_Empl_2.exe(3620)'
 
а с trye пишет:
'Thread Start: Thread ID: 3992. Process Pr_Empl_2.exe(3900)'
 
Задолбался уже ...правда...может есть у кого мысли на этот счет?
 

Всего записей: 109 | Зарегистр. 09-10-2004 | Отправлено: 14:43 03-02-2006
Lexz

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как в из своей проги на Дельфях получить дискриптор Label, которая находится в другом приложении...?
Пробовал FindWindowEx(); не получается!

Всего записей: 5 | Зарегистр. 02-02-2006 | Отправлено: 16:59 03-02-2006
SergeBS



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
BABAYKA
А в design-mode у тебя открывается? Вначале там открой. А потом уже пимпами балуй.
 
 
Добавлено:
BABAYKA
И вообще, что за сервер? И кем к нему коннектишься, что-то не пойму.

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 17:02 03-02-2006
vshersh



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lexz
Если ты имеешь ввиду handle, то у label'ов его нету

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 17:06 03-02-2006
EZH



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Lexz
Ты сначала должен найти дескриптор окна, на котором находится контрол, а уж по нему искать дескриптор контрола (если он не лежит в другом контейнере на окне).

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 17:06 03-02-2006 | Исправлено: EZH, 17:07 03-02-2006
Lexz

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EZH
Я нашел окно через FindWindow!
Мне говорили что надо искать через Child.
А как?

Всего записей: 5 | Зарегистр. 02-02-2006 | Отправлено: 17:14 03-02-2006
EZH



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Lexz
Я искал кнопу и нажимал на неё так (С++)

Код:
 
  hWnd = FindWindow(NULL,"Dialog Title");
  if (hWnd)
  {
    hWnd = FindWindowEx(hWnd, NULL, "Button", "&OK");
    if (hWnd)
      SendMessage(hWnd, BM_CLICK, 0, 0);
  }  
 

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 17:19 03-02-2006
vshersh



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Lexz
The EnumChildWindows function enumerates the child windows that belong to the specified parent window by passing the handle to each child window, in turn, to an application-defined callback function. EnumChildWindows continues until the last child window is enumerated or the callback function returns FALSE.
 
Но найти TLabel при помощи EnumChildWindows не получится.
Зато получится найти TStaticText.

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 17:21 03-02-2006
SergeBS



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VitaliM
Идея на уровне бреда: создай RAM-диск, на него запиши и с него запусти.
Не пинать! Пятница и конец рабочего дня!

Всего записей: 272 | Зарегистр. 19-04-2005 | Отправлено: 17:21 03-02-2006
Lexz

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EZH
Я так делал с кнопкой, а с лейбл не получается!

Всего записей: 5 | Зарегистр. 02-02-2006 | Отправлено: 17:29 03-02-2006
EZH



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Lexz
Конечно не получается, Label просто рисуется на форме, т.к. не является окном (в Delphi это все наследники TWinControl). Тебе vshersh так и написал.

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 17:36 03-02-2006
Lexz

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EZH
А как же мне ее выцепить?
Как-то же можно, наверно...

Всего записей: 5 | Зарегистр. 02-02-2006 | Отправлено: 17:43 03-02-2006
BABAYKA



Junior Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
SergeBS
Нажимаю ран....выскакивает моя программка готовая к работе и при попытке установки связи с сервером (по нажатию пимпы) происходит облом...она пытается приконнектится к нему но вместо заветной 'Соединение с БД установлено.' пишет 'Ошибка соединения с БД.' .... Чтойбы было немного понятней приведу листинг главной формы:
unit Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, ComCtrls, uDM;
 
type
  TfMain = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    StatusBar1: TStatusBar;
    procedure N2Click(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fMain: TfMain;
 
implementation
 
{$R *.dfm}
 
 
procedure TfMain.N2Click(Sender: TObject);
begin
 try
  with fDM.Database1 do
  begin
   if Connected then Close;
    Open;
   end;
   StatusBar1.SimpleText:='Соединение с БД установлено.'
  except
   StatusBar1.SimpleText:='Ошибка соединения с БД.'
  end;
end;
 
end.  
 
и листинг дата модуля:
 
unit uDM;
 
interface
 
uses
  SysUtils, Classes, DBTables, DB;
 
type
  TfDM = class(TDataModule)
    DataSource1: TDataSource;
    Query1: TQuery;
    Database1: TDatabase;
    UpdateSQL1: TUpdateSQL;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  fDM: TfDM;
 
implementation
 
{$R *.dfm}
 
end.
 
Локальный сервер IB 7.5.......

Всего записей: 109 | Зарегистр. 09-10-2004 | Отправлено: 17:56 03-02-2006
EZH



Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Lexz
Хм... А что ты хочешь делать с этой меткой? Напрямую добраться до неё и посылать ей сообщения не удасться. Если нужен, скажем, её текст, то можно попробовать как-то добраться до него в памяти другого приложения (процесса). Примером не помогу, т.к. не делал такого, но надо копать в сторону ReadProcessMemory...

Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 18:47 03-02-2006
smus811

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Спасибо большое за ответы!! В конце концов пришлось использовать
другие компоненты  и код писать другой. Хотя ваш способ работал.
У меня теперь ещё один глупый вопрос: разжуйте плиз, как лучше запихать
Гиф-анимацию в проект, через TAnimate сейчас подцепляются чисто AVI.
Спасибо.

Всего записей: 6 | Зарегистр. 29-01-2006 | Отправлено: 19:38 03-02-2006
vshersh



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
smus811
Используй TRxGIFAnimator

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 20:13 03-02-2006
SERGE_BLIZNUK

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

Цитата:
Используй TRxGIFAnimator  

 
рискну дополнить...  
это есть (как наследие) в JEDI
пример использования
  JEDI\JVCL210\jvcl\examples\RxGIFAnimator\
а сам TJvGIFAnimator = class(TJvImageControl)
описан в JvGIFCtrl.pas  

Всего записей: 2014 | Зарегистр. 12-09-2002 | Отправлено: 01:53 04-02-2006
Lexz

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
EZH
Мне просто надо определить когда изменится надпись, и сэмулировать щелчек мышкой!
Вот мне и надо определить ее текст!
А щелкать надо по форме (ну это не проблема )

Всего записей: 5 | Зарегистр. 02-02-2006 | Отправлено: 09:44 04-02-2006
   

Страницы: 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 102

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Вопросы по Delphi
ShIvADeSt (20-04-2006 01:53): http://forum.ru-board.com/topic.cgi?forum=33&topic=6679#1


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru