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

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

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в 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

mutmut Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Jokerjar Если посылаю бродкастом. И не на флешку, а на обыкновенную ссылку. То работает. Бродкастом на флешку не работает. Где капать?
	Всего записей: 46 \| Зарегистр. 14-12-2005 \| Отправлено: 18:18 28-03-2006

SmokyLV

Newbie

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

Цитата:

А Debug Info включен? (+ и т.п.)

Debug Info (+ и т.п.) включен.

Всего записей: 12 | Зарегистр. 09-02-2006 | Отправлено: 18:29 28-03-2006

ShIvADeSt

Moderator

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

Jokerjar

Цитата:

The timeSetEvent function starts a specified timer event. The multimedia timer runs in its own thread. After the event is activated, it calls the specified callback function.

то есть не таймер в поток, а сразу таймер создавай который имеет собственный поток.SmokyLV

Цитата:

Люди, помогите кто может. В Делфи 5 не трасируются проэкты dll-ок.
Вроде сделал всё как надо, в Run|Parameters указал Host application.

Подробнее...

----------
И создал Бог женщину... Существо получилось злобное, но забавное...

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 01:44 29-03-2006

mutmut

Junior Member

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

Jokerjar
Будут какие-нибуть ещё предложения?
Вот итог:
Дескриптор у самой области отображения и тулбара браузера разные. И не равны дискриптору получаемому по findwindow. Причем клик по дискриптору полученному по findwindow не прокатывает. Клик по дискриптору полученному по клику вроде, что то там делается активным становиться окно браузера, только клика нет. Бродкастом клик прокатывает на обычную ссылку вроде

, на флешку нет.

Всего записей: 46 | Зарегистр. 14-12-2005 | Отправлено: 08:31 29-03-2006 | Исправлено: mutmut, 10:14 29-03-2006

RostY Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору mutmut А может декомпилировать флешку и посмотреть чего она делает ?
	Всего записей: 387 \| Зарегистр. 11-01-2006 \| Отправлено: 09:45 29-03-2006

mutmut Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору RostY Подскажи чем можно декомпелировать флешку? Вопрос снят. Уже нашел.
	Всего записей: 46 \| Зарегистр. 14-12-2005 \| Отправлено: 10:35 29-03-2006 \| Исправлено: mutmut, 10:46 29-03-2006

mutmut

Junior Member

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

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

Добавлено:
Jokerjar
О чудо вот код.

Код:

sendmessage(4522888, wm_lbuttondown,1,7012637);
sendmessage(4522888, WM_LBUTTONUP,1,7012637);
sendmessage(4522888, wm_lbuttondown,1,7012637);

Так происходит клик. Но ситуация в следующем. Что как ты и говорил при релоаде меняется дискриптор, как мне его узнать если по findwindow он не тот, то есть дескриптор получаемый программой по клику(приведенной выше) не равен дескриптору по findwindow? Дескриптор ищу так.

Код:

findwidow(nil,'титл окна')

Всего записей: 46 | Зарегистр. 14-12-2005 | Отправлено: 17:18 29-03-2006 | Исправлено: mutmut, 19:21 29-03-2006

ArtemiyUO

Full Member

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

Кроме титла можно найти нужное окно по имени класса например. Предварительно поизучай окно и вооще приложение с помощью MS Spy++ или WinSight32. посмотри какие окна, какие классы и т.д. А потом уже ищи и отбрасывай не нужное.

Всего записей: 539 | Зарегистр. 12-12-2005 | Отправлено: 07:01 30-03-2006

mutmut

Junior Member

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

ArtemiyUO
Пробую сделать вот так:

Код:

wndс:=FindWindowEx(wndparent,null,class name,'Титл');

При клике на кнопку которая выполняет данный код ощибка:

Цитата:

calss EVariantTypeError with message 'Could not convert variant of type (Null) into type (int64).

Как быть?

Всего записей: 46 | Зарегистр. 14-12-2005 | Отправлено: 08:00 30-03-2006

ArtemiyUO

Full Member

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

ну вот как пример код который скрывает "пуск". Тут тебе и получение дискр окна, и получение дочерних его окон, перебор их всех и поиск нужного по имени класса

Код:

procedure StartButton(visi: boolean);
var Tray, Child : hWnd;
C : array [0..127] of char;
S : string;
begin
Tray := FindWindow('Shell_TrayWnd', NIL);
Child := GetWindow(Tray, GW_CHILD);
while Child <> 0 do begin
if GetClassName(Child, C, SizeOf(C)) > 0 then begin
S := StrPAS(C);
if UpperCase(S) = 'BUTTON' then begin
if Visi then
ShowWindow(Child, 1)
else
ShowWindow(Child, 0);
end;
end;
Child := GetWindow(Child, GW_HWNDNEXT);
end;
end;

А вообще в инете на сайтах посвязенных делфе эта тема очень подробно освещена, поищи, почитай.

Всего записей: 539 | Зарегистр. 12-12-2005 | Отправлено: 08:24 30-03-2006

mutmut Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору ArtemiyUO Где же ты раньше то был ShIvADeSt Jokerjar Урааааааа Все заработало. Спасибо огромное за помошь. За ваще терпение и понимание.
	Всего записей: 46 \| Зарегистр. 14-12-2005 \| Отправлено: 10:09 30-03-2006

scofer

Newbie

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

Здравствуйте.
Подскажите, если кто работал с TeeChart Pro.
Делаю простой проект с TeeChart:

...
series1: TContourSeries;
series1 := TContourSeries.Create(Chart1);
Chart1.AddSeries(series1);
...
procedure TForm1.Button1Click(Sender: TObject);
var x,y,z,s:real;
begin
series1.Clear;
//series1.IrregularGrid := True;
s := 1; x := -5;
while x <= 5 do begin
y := -5;
while y <= 5 do begin
z := Sqrt(x*x + y*y);
series1.AddXYZ(x,y,z);
y := y + s;
end;
x := x + s;
end;
series1.AutomaticLevels:=true;
end;

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

Заранее спасибо.

Всего записей: 2 | Зарегистр. 20-03-2006 | Отправлено: 10:23 30-03-2006

valerka78

Member

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

Подскажите, плз, как неявно прописывается путь к каталогу, в котором исполняется программа.
Например, при загрузке картинки:
...
MyImg[i+1].Picture.LoadFromFile('epi.JPG');
...

Всего записей: 248 | Зарегистр. 16-01-2006 | Отправлено: 14:35 30-03-2006

Schatz

Junior Member

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

День добрый
Пишу библиотеку, в событии инит заполняю масив компанентов типа Таймер:

For i:=0 to 9 do begin
Timer[i]:=TTimer.Create(nil);
Timer[i].Enabled := False;
Timer[i].OnTimer := OnMyTimer;
Timer[i].Tag:=i;
End;

В обработчике события OnMyTimer(Sender: TObject); пишу

TimerNo:=InToStr((Sender as TButton).Tag);
В этой строке возникает ошибка, в параметре Sender находится пустое значение.

Подскажите как правильно передать объект Таймер в обработчик OnMyTimer.

Или как можно передать номер таймера в обработчик OnMyTimer???

Зарание огромное спасибо.

Всего записей: 55 | Зарегистр. 31-05-2005 | Отправлено: 14:36 30-03-2006 | Исправлено: Schatz, 14:37 30-03-2006

vshersh

Full Member

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

Schatz
А чего у тебя преобразование
Код:

Sender as TButton

?
надо ж к таймеру кастить.

Всего записей: 506 | Зарегистр. 12-01-2006 | Отправлено: 14:44 30-03-2006

valerka78 Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Schatz 1. Нет такой функции InToStr есть IntToStr. 2. Код непонятен абсолютно : Timer[i].OnTimer := OnMyTimer; ??? OnMyTimer(Sender) ???
	Всего записей: 248 \| Зарегистр. 16-01-2006 \| Отправлено: 14:47 30-03-2006

Schatz Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору vshersh Точно, это моя невнимательность, спасибо за помощь. Прошу прощение за глупый вопрос, просто уже тупить начинаю под конец рабочего дня
	Всего записей: 55 \| Зарегистр. 31-05-2005 \| Отправлено: 14:49 30-03-2006

RostY Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору valerka78 MyImg[i+1].Picture.LoadFromFile(ExtractFilePath(paramstr(0))+'epi.JPG'); MyImg[i+1].Picture.LoadFromFile(ExtractFilePath(application.ExeName)+'epi.JPG');
	Всего записей: 387 \| Зарегистр. 11-01-2006 \| Отправлено: 15:20 30-03-2006

valerka78 Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору RostY Большое спасибо
	Всего записей: 248 \| Зарегистр. 16-01-2006 \| Отправлено: 15:32 30-03-2006

vserd

Silver Member

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

Schatz

Цитата:

OnMyTimer(Sender: TObject); пишу

TimerNo:=InToStr((Sender as TButton).Tag);

Ты хоть понял чего написал?
Почему ты считаешь что Sender это TButton. Мое мнение что это TTimer.
Что происходит по такому коду, размещенного в OnMyTimer:
If Assigned(Sender) then ShowMessage('not Nil') Else ShowMessage('Nil');
If Sender is TTimer then ShowMessage(InToStr((Sender as TTimer).Tag));

Всего записей: 2065 | Зарегистр. 08-05-2002 | Отправлено: 15:33 30-03-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