Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 3.307 RSS

←   Февраль 2004   →
						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

За последние 60 дней ни разу не выходила

Сайт рассылки: http://rusfaq.ru/
Открыта: 14-03-2002

Автор

Калашников О.А.

Статистика

3.307 подписчиков
0 за неделю

• Выпуски
• Статистика

←   Все выпуски   →

RusFAQ.ru: Программирование на Delphi

Информационный Канал Subscribe.Ru

---

---

RusFAQ.ru: Программирование на C++ Builder / Delphi

Выпуск № 285
от 06.02.2004, 02:20

Администратор: Имя: Калашников О.А. URL: Информационный ресурс ICQ: 68951340 Россия, Москва

О рассылке: Задано вопросов: 1308 Отправлено ответов: 2835 Активность: 216.7 % [Задать вопрос >>] [Регистрация эксперта >>] [Поиск в базе] [Обсудить на форуме]

---

Список экспертов, ответы которых опубликованы в данном выпуске

sir henry Статус: Профессиональный Общий рейтинг: 159.87 [Подробней >>]	THE_PRO Статус: Опытный Общий рейтинг: 139 URL: THE_PRO [Подробней >>]	Boriss Статус: Профессиональный Общий рейтинг: 152.09 URL: Программирование на Паскале [Подробней >>]
Tano Статус: Доверительный Общий рейтинг: 126.47 [Подробней >>]	Bob Johnson Статус: Профессиональный Общий рейтинг: 145.67 URL: Программирование [Подробней >>]	samum2000 Статус: Опытный Общий рейтинг: 121.77 [Подробней >>]
_vt Статус: Профессиональный Общий рейтинг: 117.84 URL: Тест [Подробней >>]

---

Краткий перечень вопросов

Вопрос № 1295. Уважаемые эксперты! Спасибо всем откликнувшимся на мой вопрос (#1269), особенно эксперту Boriss! Я с... (ответов: 1)
Вопрос № 1296. Здравствуйте! Подскажите, pls, как побороть такую бяку... Есть несколько таблиц в формате Paradox (с... (ответов: 1)
Вопрос № 1297. Здравствуйте ребята! Обидно! Так никто меня и не понял! :(( В качестве объяснения проблемы посылаю м... (ответов: 3)
Вопрос № 1298. Здравствуйте! Большое спасибо экспертам Bob Johnson и Pawel за толковые ответы на мой вопрос №1292!... (ответов: 3)
Вопрос № 1299. Здравствуйте уважаемые эксперты Подскажите пожалуйста хороший отладчик, желательно с документацией (... (ответов: 3)
Вопрос № 1300. Доброе время суток!! Может вопрос покажется странным но все таки. Есть 40 тумблеров состояние которы... (ответов: 3)

---

Вопросов: 6, ответов: 14

---

Вопрос № 1295

Уважаемые эксперты!
Спасибо всем откликнувшимся на мой вопрос (#1269), особенно эксперту Boriss! Я сделал прогу на ADOTable. Все прекрасно, только получается, что грузить файлы нужного мне формата (а это Tab Delimited) нужно обязательно через ODBC?! Мне же надо грузить все _напрямую_ из любой, заданной пользователем директории, причем любой, созданный этим же пользователем файл.Да и некоторые базы я не хотел бы делать открытыми, а запихать куданибудь в ресурсы. ХЭЛП!
Алексей

---

Вопрос отправлен: 01.02.2004, 03:17
Отправитель: Алексей (asfodelus@yandex.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Здравствуйте, Алексей!
Если файл содержит данные в виде:
--- begin of file ----
1 Иванов бухгалтер
2 Сидоров директор
--- end of file ------
то вы можете создать структуру, типа:
structura = record
num : integer;
fam : string;
dol : string;
end;
и читать файл как текстовый, занося данные в эту структуру, проведя предварительную необходимую обработку и далее переправляя данные уже в таблицу.

---

Ответ отправлен: 02.02.2004, 11:38
Отправитель: sir henry

---

Вопрос № 1296

Здравствуйте!
Подскажите, pls, как побороть такую бяку... Есть несколько таблиц в формате Paradox (созданы в DataBase Desktop из состава Delphi 4). С помощью DataBase Wizard создана форма для отображения данных первой таблицы в DBGrid. Поскольку матер предложил выбрать лишь одну таблицу, то остальные добавлялись с помощью ручного размещения компонентов TTable на форме. В результате в программе появилось описание полей первой таблицы и упоминание о существовании других без описания полей. Ни удалить описание полей первой (Project Final.exe raised exception class EClassNotFound with message 'Class TSmallintField not found'), ни добавить по образу и подобию описания полей остальных (Field Form1.Table2SmallintField does not have a corresponding component) нельзя. Не знаю с этим связана бяка или нет, но заключается она в том, что заполнение полей всех таблиц под отладчиком проходит на ура, а если запустить на самостоятельное выполнение, то вместо положенных случайных значений поля заполняются одинаковыми. Причем если полцикла пройти с отладчиком, а вторую половину на автомате, то половна записей будет случайной, а половина одинаковыми. Подскажите, пожалуйста, с чем это связано. Только, если можно по-подробней. Я еще только учусь.

Приложение:
unit Project; interface uses SysUtils, Windows, Messages, Classes, Graphics, Controls, StdCtrls, Forms, DB, DBGrids, DBTables, Grids, ExtCtrls, DBCtrls; type TForm1 = class(TForm) Table1SmallintField: TSmallintField; Table1SmallintField2: TSmallintField; Table1SmallintField3: TSmallintField; Table1TimeField: TTimeField; Table1FloatField: TFloatField; Table1j: TFloatField; Table1j2: TTimeField; DBGrid1: TDBGrid; DBNavigator: TDBNavigator; Panel1: TPanel; DataSource1: TDataSource; Panel2: TPanel; Table1: TTable; Button2: TButton; Table2: TTable; Table3: TTable; Table4: TTable; RadioGroup1: TRadioGroup; Table5: TTable; procedure FormCreate(Sender: TObject); procedure Button2Click(Sender: TObject); procedure RadioGroup1Click(Sender: TObject); private { private declarations } public { public declarations } end; var Form1: TForm1; BigN: byte; implementation {$R *.DFM} Function GSVal (tmp1, tmp2: word; count: byte): single; {Получение случайного числа из заданного диапазона} begin Randomize; GSVal:=(Random (tmp2-tmp1)+tmp1)/count; end; Function GSV (temp1,temp2: real): real;{Розыгрыш случайных значений в соответствии с рекомендациями Е.С.Венциль} var i: byte; SumR: single; begin SumR:=0; for i:=1 to 6 do begin Randomize; SumR:=SumR+Random; end; GSV:=temp1*(sqrt (2))*(SumR-3)+temp2; end; Procedure OperatorErr (var x, y: byte); var TauX, TauY: single; begin repeat TauX:=random; TauY:=random; until (TauX>TauY); {кол-во ошибок в начале больше, чем в конце} repeat x:=Round (GSV (TauX,GSVal (2,5,1))); y:=Round (GSV (TauY,GSVal (2,30,10))); until (x>y); {Рез-ты розыгрыша фиксируются,когда x>y => m(?)>m(c)} end; Function MyRandomToTime (tmp3, tmp4: word): string; var Temp: word; begin MyRandomToTime:=''; Temp:=Round (GSVal (tmp3, tmp4, 1)); MyRandomToTime:=Concat ('00', TimeSeparator, IntToStr (Temp div 60), TimeSeparator, IntToStr (Temp mod 60)); end; Function Alg1: single; Var x, y: byte; Mo: single; begin {Начало вычисления влияния обученности оператора на ошибки} OperatorErr (x, y); Mo:=y+(x-y)*exp (0-GSVal (15,30,1)); Alg1:=exp (0-Mo); end; {Конец вычисления влияния обученности оператора на ошибки} procedure TForm1.FormCreate(Sender: TObject); Procedure ClearTables; begin {Начало очистки всех таблиц} with Table1 do begin Active := False; DatabaseName := 'D:DiplomTemp'; TableName := 'Base1.db'; TableType := ttParadox; EmptyTable; end; with Table2 do begin Active := False; DatabaseName := 'D:DiplomTemp'; TableName := 'Base2.db'; TableType := ttParadox; EmptyTable; end; with Table3 do begin Active := False; DatabaseName := 'D:DiplomTemp'; TableName := 'Base3.db'; TableType := ttParadox; EmptyTable; end; with Table4 do begin Active := False; DatabaseName := 'D:DiplomTemp'; TableName := 'Base4.db'; TableType := ttParadox; EmptyTable; end; end; Procedure Init; Procedure FillBase1; var x, y, count: byte; begin DataSource1.DataSet.Close; DataSource1.DataSet:=Table1; Table1.Open; Table1.Edit; for count:=1 to BigN do begin OperatorErr (x,y); Table1.Append; Table1.Fields.Fields[0].AsInteger:=count; Table1.Fields.Fields[1].AsInteger:=x; Table1.Fields.Fields[2].AsInteger:=y; Table1.Fields.Fields[3].AsString:=MyRandomToTime (300, 1800); Table1.Fields.Fields[4].AsFloat:=Random; Table1.Fields.Fields[5].AsFloat:=Random; Table1.Fields.Fields[6].AsString:=MyRandomToTime (1, 60); end; end; Procedure FillBase2; var count: byte; begin DataSource1.DataSet.Close; DataSource1.DataSet:=Table2; Table2.Open; Table2.Edit; for count:=1 to BigN do begin Table2.Append; Table2.Fields.Fields[0].AsInteger:=count; Table2.Fields.Fields[1].AsFloat:=Random; Table2.Fields.Fields[2].AsInteger:=Round (GSVal (1, 10, 1)); Table2.Fields.Fields[3].AsString:=MyRandomToTime (0, 3600); Table2.Fields.Fields[4].AsString:=MyRandomToTime (0, 3600); Table2.Fields.Fields[5].AsInteger:=Round (GSVal (1, 15, 1)); end; end; Procedure FillBase3; var count: byte; begin DataSource1.DataSet.Close; DataSource1.DataSet:=Table3; Table3.Open; Table3.Edit; for count:=1 to BigN do begin Table3.Append; Table3.Fields.Fields[0].AsInteger:=count; Table3.Fields.Fields[1].AsInteger:=Round (GSVal (2, 10, 1)); Table3.Fields.Fields[2].AsFloat:=Random; Table3.Fields.Fields[3].AsInteger:=Round (GSVal (1, 5, 1)); Table3.Fields.Fields[4].AsFloat:=Random; Table3.Fields.Fields[5].AsFloat:=Random; Table3.Fields.Fields[6].AsFloat:=Random; Table3.Fields.Fields[7].AsInteger:=Round (GSVal (1, 15, 1)); end; end; Procedure FillBase4; begin end; begin BigN:=Round (GSVal (15, 30, 1)); {Кол-во тренеровок} FillBase1; FillBase2; FillBase3; FillBase4; end; begin {Создание формы программы} ClearTables; {Очищаем все таблицы перед началом работы} Init; end; {Завершение создания формы программы} procedure TForm1.Button2Click(Sender: TObject); begin Close; end; procedure TForm1.RadioGroup1Click(Sender: TObject); begin case RadioGroup1.ItemIndex of 0: begin DataSource1.DataSet.Close; DataSource1.DataSet:=Table1; Table1.Open; end; 1: begin DataSource1.DataSet.Close; DataSource1.DataSet:=Table2; Table2.Open; end; 2: begin DataSource1.DataSet.Close; DataSource1.DataSet:=Table3; Table3.Open; end; 3: begin DataSource1.DataSet.Close; DataSource1.DataSet:=Table4; Table4.Open; end; end; end; end.

---

Вопрос отправлен: 01.02.2004, 16:48
Отправитель: Edmundo
[Следующий вопрос >>] [Список вопросов]

---

Отвечает THE_PRO

Добрый день, Edmundo!
Ti luchshe ispolzuy ne Wizard a rabotay sam i nauchis rabotat s modulem dannix ("File->New->DataModule").
Vse doljno poluchitsya!

---

Ответ отправлен: 02.02.2004, 10:24
Отправитель: THE_PRO

---

Вопрос № 1297

Здравствуйте ребята!
Обидно! Так никто меня и не понял! :((
В качестве объяснения проблемы посылаю маленькую программку.
Все свойства Tform и TImage кроме Anchors - по умолчанию. В Anchors все установлено в true.
Со свойством Stretch можно поиграться. При Stretch=true,TImage растягивает рисунок на заданный размер, но вывод происходит согласно изначально установленных размеров. При Stretch=false размер поля вывода не меняется вообще, хотя на лейблах видно, что размер TImage благополучно изменился.
Может есть какое-то свойство типа Image1.Canvas.Resize???
P.S. нажмите button1, потом пипочку "развернуть" потом снова button1..
З.З.Ы. не сочтите за полного ламера - как переводится ИМХО?

Приложение:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; Label1: TLabel; Label2: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin With Image1.Canvas do begin pen.Color:=clwhite; Rectangle(0,0,Image1.width-1,Image1.Height-1); pen.Color:=clred; MoveTo(0,0); LineTo(Image1.Width-1,0); LineTo(Image1.Width-1,Image1.Height-1); LineTo(0,Image1.Height-1); LineTo(0,0); LineTo(Image1.Width-1,Image1.Height-1); end; Label1.Caption:=IntToStr(Image1.Width); Label2.Caption:=IntToStr(Image1.Height); end; end.

---

Вопрос отправлен: 01.02.2004, 22:34
Отправитель: vitally
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Здравствуйте, vitally!
Я понял Вашу проблему.
Здесь все дело в установке Anchors в True. При этом, при изменении размера формы, Image будет сохранять неизменным расстояние от границ Image до границ формы. Если на форме находились кнопки, то будет сохраняться неизменным расстояние до кнопок. Прикол в том, что РЕАЛЬНЫЙ размер Image будет увеличиваться, а ВИДИМЫЙ - нет. Ваш рисунок будет рисоваться по РЕАЛЬНЫМ границ Image, а не по видимым.
Теперь понятно, почему рисунок вылезает за видимый размер Image? :))
Привожу в приложении свой вариант модуля с дополнительными кнопками для манипуляции размерами Image. Поигравшись с ним Вы все увидите сами.

Приложение:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Button1: TButton; Image1: TImage; Label1: TLabel; Label2: TLabel; Button2: TButton; Button3: TButton; Label3: TLabel; Label4: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Image1.Canvas.pen.Color:=clred; Image1.Canvas.MoveTo(0,0); Image1.Canvas.LineTo(Image1.Width-1,0); Image1.Canvas.LineTo(Image1.Width-1,Image1.Height-1); Image1.Canvas.LineTo(0,Image1.Height-1); Image1.Canvas.LineTo(0,0); Image1.Canvas.LineTo(Image1.Width-1,Image1.Height-1); Label1.Caption:=IntToStr(Image1.Width); Label2.Caption:=IntToStr(Image1.Height); end; procedure TForm1.Button2Click(Sender: TObject); begin Image1.Width:=Image1.Width+30; Image1.Height:=Image1.Height+30; Image1.Canvas.Rectangle(0,0, Image1.Width, Image1.Height); Label1.Caption:=IntToStr(Image1.Width); Label2.Caption:=IntToStr(Image1.Height); end; procedure TForm1.Button3Click(Sender: TObject); begin Image1.Width:=Image1.Width-30; Image1.Height:=Image1.Height-30; Image1.Canvas.Rectangle(0,0, Image1.Width, Image1.Height); Label1.Caption:=IntToStr(Image1.Width); Label2.Caption:=IntToStr(Image1.Height); end; procedure TForm1.FormCreate(Sender: TObject); begin Image1.Canvas.brush.Color:=clwhite; end; end.

---

Ответ отправлен: 02.02.2004, 14:25
Отправитель: sir henry

---

Отвечает THE_PRO

Здравствуйте, vitally!
Yesli u tebya vse kvadratno to stretch:=true
Toqda pri izmenenii razmerov risunok toje izmenit svoi razmeri, pomoyemu eto to chto tebe nujno. Tak?

---

Ответ отправлен: 02.02.2004, 10:20
Отправитель: THE_PRO

---

Отвечает Boriss

Здравствуйте, vitally!
Конечно, трудно понять, когда не обясняют. Я полагал, что речь идет о загрузке файла в TImage.
И пипочки нет :)).
Может пришлете на bsurin@mail.ru проект, чтоб понять и что-либо посоветовать?
ИМХО = "по моему скромному мнению" - (от англ. In My Humble Opinion)

---

Ответ отправлен: 03.02.2004, 13:42
Отправитель: Boriss

---

Вопрос № 1298

Здравствуйте!
Большое спасибо экспертам Bob Johnson и Pawel за толковые ответы на мой вопрос №1292!
У меня есть еще пара вопросов. Как сделать так, чтобы:
1) иконка и название программы не отображались на панели задач;
2) при сворачивании окна программы ее иконка появлялась в трее, а при разворачивании (путем щелчка по иконке) исчезала бы?
Если не затруднит, хоть в двух словах подскажите, в каком направлении следует копать. Пожалуйста!

---

Вопрос отправлен: 02.02.2004, 02:45
Отправитель: Русских Денис
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Tano

Добрый день, Русских Денис!
Напиши мне на tano@kubannet.ru - пришлю каркас такой программы.

---

Ответ отправлен: 02.02.2004, 04:14
Отправитель: Tano

---

Отвечает Bob Johnson

Здравствуйте, Русских Денис!
ЧТобы разместить иконку в tray или tbna, смотри в сторону функции Shell_NotifyIcon.
При этом ты должен будешь ее контроллировать сам (т.е. сам убирать при разворачивании окна, если нужно и сам убирать).
Чтобы убрать taskbar button - тут уже надо работать с окном Application.Handle - это окно, к которому и относится кнопка на таскбаре (а главная форма приложения - это уже другое окно).

* EMan1.5: ---===*** The game we play ***===---

---

Ответ отправлен: 05.02.2004, 18:04
Отправитель: Bob Johnson

---

Отвечает samum2000

Здравствуйте, Русских Денис!
1. Я так понял,что вам нужно скрыть кнопку программы с панели задач. для этого можно использовать функцию showwindow:
ShowWindow(Application.Handle, sw_Hide);
Чтобы отобразить кнопку обратно, надо написать
ShowWindow(Application.Handle, sw_Show);
2. Проще всего в этом случае воспользоваться готовыми компонентами, а то самому придется много писать. В приложении я выложил один небольшой модуль (поддержим отечественного производителя :)), но в интернете этих компонентов огромное количество - на любой вкус и цвет.

Приложение:
unit TrayComp; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, ShellAPI, Menus, Dialogs, CommCtrl; const WM_FROMTRAYICON = WM_USER+59; WM_RESETTOOLTIP = WM_USER+61; type TTrayComp = class(TComponent) private { Private declarations } { general } FhWnd : hWnd; FhLib : hInst; { for hiding } FHideApp : Boolean; FShowForm : Boolean; FShowInTaskBar: Boolean; FRunMinimized : Boolean; OldWndProc : TFarProc; NewWndProc : Pointer; { for icon } IconData : TNOTIFYICONDATA; FIcon : TIcon; FToolTip : string; FShowIcon : Boolean; FPopupMenu : TPopupMenu; FDefRClick : Boolean; FDefLClick : Boolean; FOnLeftClick : TNotifyEvent; FOnRightClick : TMouseEvent; FOnMouseMove : TNotifyEvent; { for hiding } procedure SetHideApp(Value:Boolean); procedure SetShowForm(Value:Boolean); procedure SetShowInTaskBar(Value: Boolean); procedure InsertHook; procedure RemoveHook; procedure OurWndProc(var M: TMessage); { for icon } function PlaceIcon : Boolean; function ReplaceIcon : Boolean; function EraseIcon : Boolean; procedure SetShowIcon(Value : Boolean); procedure SetIcon(Value : TIcon); procedure SetToolTip(Value : string); procedure FillIconData; procedure DoRightClick(Sender : TObject); procedure DoLeftClick(Sender : TObject); procedure DoMouseMove(Sender:TObject); protected { Protected declarations } { for hiding } procedure Loaded; override; procedure DoHiding; public { Public declarations } constructor Create(AOwner: TComponent); override; destructor Destroy; override; published { Published declarations } { for hiding } property HideApp :Boolean read FHideApp write SetHideApp ; property ShowForm :Boolean read FShowForm write SetShowForm default True; property ShowInTaskBar:Boolean read FShowInTaskBar write SetShowInTaskBar default False; property RunMinimized :Boolean read FRunMinimized write FRunMinimized default False; { for icon } property ShowIcon : boolean read FShowIcon write SetShowIcon; property Icon : TIcon read FIcon write SetIcon; property ToolTip : string read FTooltip write SetToolTip; property PopupMenu : TPopupMenu read fPopupMenu write fPopupMenu; property DefRClick : Boolean read FDefRClick write FDefRClick default False; property DefLClick : Boolean read FDefLClick write FDefLClick default True; property OnLeftClick : TNotifyEvent read FOnLeftClick write FOnLeftClick; property OnRightClick : TMouseEvent read FOnRightClick write FonRightClick; property OnMouseMove : TNotifyEvent read FOnMouseMove write FOnMouseMove; end; procedure register; implementation constructor TTrayComp.Create(AOwner: TComponent); var i: Integer; Already:Byte; begin inherited Create(AOwner); { for hiding } FHideApp:=True; FShowForm:=True; FShowInTaskBar := False; FRunMinimized:=False; NewWndProc := nil; OldWndProc := nil; Already:=0; if (csDesigning in ComponentState) then if (AOwner is TForm) then with (AOwner as TForm) do begin for i := 0 to ComponentCount - 1 do if Components[i] is TTrayComp then Inc(Already); if Already>1 then raise Exception.Create('You can''t create a second TTrayComp on the same form!'); end else raise Exception.Create('You can create a TTrayComp only on the form!'); { for icon } FIcon := TIcon.Create; FShowIcon:=True; FDefRClick:=False; FDefLClick:=True; if (csDesigning in ComponentState) then SetIcon(Application.Icon); end; destructor TTrayComp.Destroy; begin { for hiding } RemoveHook; { for icon } if not (csDesigning in ComponentState)then if FShowIcon then EraseIcon; FIcon.Free; inherited Destroy; end; procedure TTrayComp.Loaded; begin inherited Loaded; FhWnd:=(Owner as TForm).Handle; { terminate if minimized not allowed } if IsIconic(FhWnd)and not FRunMinimized then Application.Terminate; InsertHook; { hide the form at start-up if needed } if not FShowForm then begin (Owner as TForm).Visible:=False; Application.ShowMainForm:=False; end; end; procedure TTrayComp.DoHiding; begin if not (csDesigning in ComponentState) then if not FShowInTaskBar then ShowWindow(FindWindow(nil, @Application.Title[1]), SW_HIDE); end; procedure TTrayComp.SetShowInTaskBar(Value:Boolean); begin FShowInTaskBar:=Value; DoHiding; end; procedure TTrayComp.InsertHook; begin if Owner <> nil then begin OldWndProc := TFarProc(GetWindowLong(FhWnd, GWL_WNDPROC)); NewWndProc := MakeObjectInstance(OurWndProc); SetWindowLong(FhWnd, GWL_WNDPROC,Integer(NewWndProc)); end; end; procedure TTrayComp.RemoveHook; begin if (Owner <> nil) and Assigned(OldWndProc) then SetWindowLong(FhWnd, GWL_WNDPROC,Integer(OldWndProc)); if Assigned(NewWndProc) then FreeObjectInstance(NewWndProc); NewWndProc := nil; OldWndProc := nil; end; procedure TTrayComp.OurWndProc(var M: TMessage); begin if Owner <> nil then case M.Msg of WM_ACTIVATE: if (M.WParamLo <> WA_INACTIVE) then DoHiding; WM_SYSCOMMAND: if (M.WParam = SC_MINIMIZE)and not ShowInTaskBar then begin M.Msg:=WM_SHOWWINDOW; M.WParam := SW_HIDE; end; WM_FROMTRAYICON: begin case M.LParam of WM_LBUTTONUP : DoLeftClick(Self); WM_RBUTTONUP : DoRightClick(Self); WM_MOUSEMOVE : DoMouseMove(Self); end; Exit end; WM_RESETTOOLTIP: begin SetToolTip(FToolTip); Exit end end; M.Result := CallWindowProc(OldWndProc,FhWnd, M.Msg, M.WParam, M.LParam); end; procedure TTrayComp.SetHideApp(Value:Boolean); type Proc=procedure(PID,T:DWord); stdcall; var RegProc: Proc; begin if Value<>FHideApp then FHideApp:=Value; if not (csDesigning in ComponentState)then begin if FhLib=0 then FhLib:=GetModuleHandle(PChar('kernel32.dll')); if FhLib=0 then Exit; @RegProc:=GetProcAddress(FhLib,PChar('RegisterServiceProcess')); if @RegProc<>nil then begin if Value then RegProc(GetCurrentProcessID, 1) else RegProc(GetCurrentProcessID, 0); end else FHideApp:=False; end; end; procedure TTrayComp.SetShowForm(Value:Boolean); begin if not (csDesigning in ComponentState)then if Value then ShowWindow(FhWnd,SW_SHOW) else ShowWindow(FhWnd,SW_HIDE); if Value and not(Owner as TForm).Visible then (Owner as TForm).Visible:=True; if FShowForm<>Value then FShowForm:=Value; DoHiding; end; procedure TTrayComp.FillIconData; begin with IconData do begin cbSize := sizeof(TNOTIFYICONDATA); wnd := (Owner as TForm).Handle; uID := 0; uFlags := NIF_MESSAGE or NIF_ICON or NIF_TIP; hIcon := FIcon.Handle; StrPCopy(szTip,FToolTip); uCallbackMessage := WM_FROMTRAYICON; end; end; procedure TTrayComp.SetToolTip(Value:string); begin // This routine ALWAYS re-sets the field value and re-loads the // icon. This is so the ToolTip can be set blank when the component // is first loaded. If this is changed, the icon will be blank on // the tray when no ToolTip is specified. if Length( Value ) > 62 then Value := Copy(Value,1,62); FToolTip := Value; ReplaceIcon; end; function TTrayComp.PlaceIcon:Boolean; begin FillIconData; Result := Shell_NotifyIcon(NIM_ADD,@IconData); // For some reason, if there is no tool tip set up, then the icon // doesn't display. This fixes that. if FToolTip = '' then PostMessage( (Owner as TForm).Handle, WM_RESETTOOLTIP,0,0 ); end; function TTrayComp.ReplaceIcon:Boolean; begin FillIconData; if FShowIcon then Result := Shell_NotifyIcon(NIM_MODIFY,@IconData) else Result := True; end; function TTrayComp.EraseIcon:Boolean; begin Result := Shell_NotifyIcon(NIM_DELETE,@IconData); end; procedure TTrayComp.SetShowIcon(Value:Boolean); begin if not (csdesigning in ComponentState) then begin if Value then PlaceIcon else EraseIcon end; if Value <> FShowIcon then FShowIcon:=Value; end; procedure TTrayComp.SetIcon(Value:TIcon); begin if Value <> FIcon then begin FIcon.Assign(Value); ReplaceIcon; end; end; procedure TTrayComp.DoRightClick(Sender:TObject); var Coord: TPoint; begin GetCursorPos(Coord); if Assigned( FOnRightClick ) then FOnRightClick(Self,mbRight,[],Coord.X,Coord.Y) else if FDefRClick and FShowForm then begin ShowWindow(FhWnd,SW_SHOW); SetActiveWindow(FhWnd); end; if Assigned(FPopupMenu) then begin SetActiveWindow((Owner as TForm).Handle); FPopupMenu.PopUp(Coord.X,Coord.Y); end end; procedure TTrayComp.DoLeftClick(Sender : TObject); begin if Assigned(FOnLeftClick)then FOnLeftClick(Self) else if DefLClick and FShowForm then begin ShowWindow(FhWnd,SW_SHOW); SetActiveWindow(FhWnd); end; end; procedure TTrayComp.DoMouseMove(Sender : TObject); begin if Assigned(FOnMouseMove)then FOnMouseMove(Self) end; procedure register; begin RegisterComponents('RAS', [TTrayComp]); end; end.

---

Ответ отправлен: 04.02.2004, 06:33
Отправитель: samum2000

---

Вопрос № 1299

Здравствуйте уважаемые эксперты
Подскажите пожалуйста хороший отладчик, желательно с документацией (лучше на русском).
И если кто работал с исталяциями скажите пожалуйста для чего нужен файл скрипта .scr

---

Вопрос отправлен: 02.02.2004, 11:14
Отправитель: Вячеслав (vivashina@dp.ukrtelecom.net)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает Boriss

Здравствуйте, Вячеслав!
Пожалуй ничто так не описано и не так распространено, как
TD.exe (Borland PASCAL, C++, ассемблеры и т.д) и TD32.exe, а также "профессиональный@ SoftIce. Документации по ним море - по первому и в книгах, по второму - больше в Интернете

---

Ответ отправлен: 02.02.2004, 15:24
Отправитель: Boriss

---

Отвечает THE_PRO

Добрый день, Вячеслав!
.scr eto SceerSaver

---

Ответ отправлен: 02.02.2004, 16:05
Отправитель: THE_PRO

---

Отвечает _vt

Приветствую Вас, Вячеслав!
1)Отладчик чего? Под какую ОС? Если пишешь на Delphi и хотите копаться в своих программах на низком уровне, то пользуйся встроенным отладчиком. Если под DOS - есть мощный отладчик Insight. Если под Windows - универсальным является SoftIce, но для конкретных задач могут лучше справляться другие отладчики, например, OllyDbg, или встроенный в DDK отладчик от M$... А документацию на русском в полном объеме для любого из этих отладчиков ты не найдешь - учи, хорошо учи, английский! :-)
2) Ни одна из виденных мной программ, создающих инсталляционные пакеты, если ты это имеешь в виду, не использовала файлы с расширением .scr - это вообще-то стандартное расширение скринсейвера под Windows... Еще видел, это расширение использует AutoCAD... А из программ, делающих инсталляторы, могу посоветовать NIS 2.0 - программа от создателей WinAMP, простая, но с современным интерфейсом инсталляционных пакетов. Специально для нее есть разработка HM NIS Edit - визуальное редактирование и составление сценария установки.

--- E-Man 1.5+ : Sorry for terrible english. My native language is C++

---

Ответ отправлен: 06.02.2004, 01:47
Отправитель: _vt

---

Вопрос № 1300

Доброе время суток!!
Может вопрос покажется странным но все таки.
Есть 40 тумблеров состояние которых или замкнуто или разомкнуто и есть прога написанная в DELPHI 7 которая фиксирует время включения и выключения и считает общее время работы.Управление в проге происходит от нажатия виртуальной кнопки то есть прога и тумблера не связаны друг с другом в этом вся проблема.Если сможете подскажите как связать прогу и выключатели через COM или LPT порт.Буду благодарен за любую информацию.
С уважением Антон.
Oven_mars@rambler.ru

---

Вопрос отправлен: 02.02.2004, 19:41
Отправитель: антон (oven_mars@rambler.ru)
[Следующий вопрос >>] [Список вопросов]

---

Отвечает sir henry

Доброе время суток, антон!
Если программа фиксирует время включения и выключения тумблеров, значит тумблеры и программа связаны. Вы просто невнимательно смотрели :)).
Вам нужно переформулировать вопрос. Ведь связи бывают разные (синие, зеленые, красные :).
Если Вам нужна связь - описание шнура СОМ или LPT - поищите описание в инете. Если Вам нужна связь, как реакция программы на нажатие того или иного тумблера - нужна более подробная постановка задачи. И, естественно, нужны исходники программы. Если Вам нужна связь, как реакция тумблера на какие-то действия программы - для этого нужно знать принципы работы тумблеров (если они не механические, конечно :)). И опять исходники :)).
Как видите, нельзя дать даже общих рекомендаций, пока Вы не опишите Вашу проблему.

---

Ответ отправлен: 03.02.2004, 05:42
Отправитель: sir henry

---

Отвечает Tano

Доброе время суток, антон!
Без дополнительного железа не обойтись в любом случае. Я думаю, минимально - одна (или две, каскадом) микросхемы шифраторы (обозначают CD), подключенные к LPT (можно и питание оттуда использовать). В теории выглядит не особо сложно.

---

Ответ отправлен: 03.02.2004, 09:03
Отправитель: Tano

---

Отвечает Boriss

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

---

Ответ отправлен: 04.02.2004, 18:34
Отправитель: Boriss

---

---

Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

---

Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке

---

Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов: Все ответы Не более 3-х Не более 5-и Не более 10-и

---

Выбор рассылки

Программисту Assembler (24) C / C++ (13) Perl (1) Builder / Delphi (18) Pascal (18) Basic / VBA (7) Java / JavaScript (3) PHP (12) Криптография (4) WinAPI (9) Радиоэлектроника (5)

Пользователю Windows 95/98/Me (45) Windows NT/2000/XP (58) "Железо" (34) Поиск информации (16)

Администратору Windows NT/2000/XP (31) Linux / Unix (11)

Юристу Гражданское право (16) Семейное право (10) Трудовое право (12) КоАП (11)

Отправить вопрос всем экспертам выбранной рассылки.

---

---

Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.

---

© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

---

http://subscribe.ru/ E-mail: ask@subscribe.ru

Отписаться Убрать рекламу

---

В избранное

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} {#if $P.login_register_tab == 1} <form class="authentication-form" method="post" action="/MEMBERLOGIN_authen_cred"> <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <h1>Войти на сайт</h1> {* {#include js_tmpl_auth_reg_button} *} {#include js_tmpl_auth_reg_action} <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones"><p>{#include js_tmpl_auth_reg_descr} </p></div> <div class="logreg_advice noPhones"> Если вы еще не с нами, то начните с <a href="#" onclick="rgNav('js_tab_reg');return false;" class="dashed" data-func="registr">регистрации</a> </div> <br><br> <a class="dashed auth-enter" href="/manage/author/"><b>Вход для авторов</b></a> </dt> </dl> </form> {#/if} {#if $P.login_register_tab == 2} <div class="rg_block_options"> <div id="js_tap_panel_auth"> <h1>Регистрация</h1> <div class="social_reg"> {* <div class="rg_description">{#include js_tmpl_soc_auth_reg_descr}</div> *} {#include js_tmpl_auth_reg_soc} <div class="rg_soc_auth_agree">{#include js_tmpl_auth_reg_agree}</div> </div> <div class="subscribe_reg"> {* <div class="rg_description"> #include js_tmpl_auth_reg_descr </div> *} {#include js_tmpl_auth_reg_action} </div> {* {#include js_tmpl_auth_reg_button} *} <div class="clr"> </div> <hr class="logreg_line noPhones"> <div class="logreg_descr noPhones">{#include js_tmpl_auth_reg_descr} {#include js_tmpl_soc_auth_reg_descr} </div> </div> </div> {#/if} </div> {* <div class="gray_bg register_shadow"></div> *} </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_auth" class="{#if $P.login_register_tab == 1} rg_active_nav {#/if} rg_first_nav"><a onclick="rgNav('js_tab_auth');return false;" href="">Вход на сайт</a></li> <li id="js_tab_reg" class="{#if $P.login_register_tab == 2} rg_active_nav {#/if}"><a onclick="rgNav('js_tab_reg');return false;" href="">Регистрация </a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_action} {#if $P.login_register_tab == 1} {#include js_tmpl_auth_reg_soc} {#/if} <div class="rg_forms"> <input type="hidden" id="login_register_destination" value="{$P.login_register_destination}"/> {#if $P.login_register_tab == 1} <div class="rg_for_input"> <span class="rg_text_inner">E-mail или код подписчика</span> <input id="credential_0" class="js_keydown_selector rg_input_text" data-js_submit="no" data-js_next_input_name="credential_1" name="" type="text" /> </div> <div class="rg_for_input"> <span class="rg_text_inner">Пароль</span> <input id="credential_1" class="js_keydown_selector rg_input_text" data-js_submit="yes" data-js_action="js_loginFormBut" name="" type="password" onkeyup="showAttention(this,!!window.event.shiftKey)" /> <span class="pswd_attention" id="attention_pswd"> <span class="icon_attention"></span> <span class="pswd_attention-text" id="attention-text_pswd1">Русская раскладка клавиатуры!</span> <span class="pswd_attention-text" id="attention-text_pswd2">У вас включен Caps Lock!</span> <span class="pswd_attention-text" id="attention-text_pswd3">У вас включен Caps Lock и русская раскладка клавиатуры!</span> </span> </div> <div class="rg_for_input input-alien"> <span class="chk noPhones"><input id="chk_alien" name="" type="checkbox" /></span><label for="chk_alien" class="noPhones"> Чужой компьютер</label> <a class="forgot_pass" href="/member/totalrecall">Забыли пароль?</a> </div> <div class="rg_for_input"> <em id="auth_msg" class="reg_error"></em> <input id="lf_typeauthid" value="email" type="hidden"> <input type="submit" class="button button-red logreg_submit" id="js_loginFormBut" value="Войти"> <!--</a>--> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} {#if $P.login_register_tab == 2} <div class="rg_for_input"> <span class="rg_text_inner">E-mail</span> <input id="arfemail" class="js_keydown_selector rg_input_text" name="" type="text" data-js_submit="yes" data-js_action="js_regFormBut"/> </div> <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a> </label> <br /> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_personal' type="checkbox" data-js_submit="yes" /></span> Нажимая на кнопку "Готово!", я даю <a class="link_txd logreg_accLink" href="/faq/persverordnung.html">согласие на обработку персональных данных</a> </label> </div> {* <div style="float: left;position: absolute;left: 11em;"> <img src="http://www.kupivip.ru/images/vip/logo.png?1604" style="width: 86px; vertical-align: middle;display: block;"> </div> <div class="rg_for_input rg_set_lineh"> <label class="js_tap_panel_checkbox"><input name="" id="js_tap_panel_checkbox_kupivip" type="checkbox" data-js_submit="yes"> Я хочу получать новости о скидках на одежду</label> </div> *} <div class="rg_for_input"> <em id="reg_msg" class="reg_error rg_for_input_wide"></em> <em id="reg_msg2" class="reg_error rg_for_input_wide"></em> <input id="rf_typeauthid" value="email" type="hidden"> <a class="button button-red logreg_submit" id="js_regFormBut" href="#">Готово!</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> </div> {#/if} </div> {#/template js_tmpl_auth_reg_action} {#template js_tmpl_auth_reg_agree} <div class="rg_for_input rg_set_lineh rg_for_input_wide"> <label class="js_tap_panel_checkbox"> <span class="chk"><input name="" id='js_tap_panel_checkbox_terms_reg' type="checkbox" data-js_submit="yes" /></span> Я ознакомился и согласен с <a class="link_txd logreg_accLink" href="/faq/vereinbarung.html">условиями сервиса Subscribe.ru</a></label> <em id="reg_msg_soc" class="reg_error rg_for_input_wide"></em> </div> {#/template js_tmpl_auth_reg_agree} {#template js_tmpl_auth_reg_button} <div class="rg_butons_socials"> {#if $P.login_register_tab == 1} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="auth_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="auth_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} {#if $P.login_register_tab == 2} <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_email" href="#"><span><i></i>Email</span></a> <a class="rg_btn_soc rg_bs_01 js_tap_panel_selector" action="reg_openid" href="#"><span><i></i>OpenID</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_vkontakte" href="#"><span><i></i>Вконтакте</span></a> <a class="rg_btn_soc rg_bs_02 js_tap_panel_selector" action="reg_mailru" href="#"><span><i></i>Mail.Ru</span></a> {#/if} </div> {#/template js_tmpl_auth_reg_button} {#template js_tmpl_auth_reg_descr} {#if $P.login_register_tab == 1} Для оформления подписки на выбранную рассылку, работы с интересующей вас группой или доступа в нужный вам раздел, просим авторизоваться на Subscribe.ru {#/if} {#if $P.login_register_tab == 2} Для регистрации укажите ваш e-mail адрес. Адрес должен быть действующим, на него сразу после регистрации будет отправлено письмо с инструкциями и кодом подтверждения. {#/if} {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_soc_auth_reg_descr} Или зарегистрируйтесь через социальную сеть. {#/template js_tmpl_soc_auth_reg_descr} {#template js_tmpl_auth_reg_soc} <div class="rg_soc"> {#if $P.login_register_tab == 1} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/login/vk/&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} {#if $P.login_register_tab == 2} <a onclick="return _checkSocConfirm(event)" href="https://oauth.vk.com/authorize?client_id=3954260&scope=wall,offline,photos,groups,video,audio,email&redirect_uri={location.protocol+'//'+location.host}/member/join/vk&response_type=code&v=5.15" class="login_register_vk_button"> <span class="login_register_vk_icon"></span> </a> {#/if} </div> {#/template js_tmpl_auth_reg_soc}

{#template MAIN} <div id="loginForm" style="display:none;" class="subscriberu_popup"> <div class="popup_register"> {#include js_tmpl_auth_reg_tab} <dl class="rg_block_options"> <dt id="js_tap_panel_auth"> <p class="rg_description">{#include js_tmpl_auth_reg_descr}</p> <div class="clr"> </div> {#include js_tmpl_auth_reg_action} <div class="clr"> </div> </dt> </dl> </div> <!-- <div class="gray_bg register_shadow"></div> --> </div> {#/template MAIN} {#template js_tmpl_auth_reg_tab} <ul class="rg_nav"> <li id="js_tab_reg" class="rg_active_nav rg_first_nav"><a href="" onclick="return false;" >Регистрация</a></li> </ul> <span onclick="hidebo();" class="rg_closed"> </span> {#/template js_tmpl_auth_reg_tab} {#template js_tmpl_auth_reg_descr} <strong>Пожалуйста, подтвердите ваш адрес.</strong><br><br>Вам отправлено письмо для подтверждения вашего адреса {$P.register_confirm_mail}.<br>Для подтверждения адреса перейдите по ссылке из этого письма. {#/template js_tmpl_auth_reg_descr} {#template js_tmpl_auth_reg_action} <div class="rg_forms confirm_code_from_letter"> <div class="rg_for_input"> <span class="rg_inp_descr" style="width:15em;">Или введите код из письма:</span> <input type="text" value="" id="confirm_code" name="" data-js_submit="yes" data-js_action="js_confirmFormBut" class="js_keydown_selector rg_input_text_conf" > </div> <div class="rg_for_input"><label>Не пришло письмо? <b>Пожалуйста, проверьте папку Спам</b><br /> (папку для нежелательной почты).</label><br />  <a href="" onclick="ajax_recall_code();return false" >Вышлите мне письмо еще раз!</a></div> <div class="rg_for_input"> <em class="reg_error" id="confirm_msg"></em> <a href="#" class="button button-red" id="js_confirmFormBut">Готово</a> <div class="loading loading-cover" style="display: none;"><div class="loader"></div></div> <br> </div> </div> {#/template js_tmpl_auth_reg_action}