Home
Top.Mail.Ru Yandeks.Metrika
Forum: "Main";
Current archive: 2004.03.28;
Download: [xml.tar.bz2];

Down

public array of THandle Find similar branches


NPR2   (2004-03-10 10:14) [0]

В главной форме описываю массив как public и складываю в него Handle, открытых СОМ портов. Но в дочернем окне при write в порт и read из порта я не вижу нужного элемента этого массива, т.е
   WriteFile(aHandle[m]," 1 1c"+#239,6,dw_Write,@OverWrite) не работает.
А когда в главной форме описываю просто как Thandle и открываю только один порт, то все проходит нормально.
Как сделать, чтобы все работало.



Я ©   (2004-03-10 10:21) [1]

1. "Не работает" это: не компилируется или не выполняет того, что нужно?
2. Обращение: MainForm.aHandle[m]. Хотя (по описанию) это нарушение инкапсуляции. Используйте public property.



NPR2   (2004-03-10 10:30) [2]

Самое интересное, что компилируется и выполняется, только без результата - если я в лоб руками набиру. В авто подсказке этот элемент не виден.



Я ©   (2004-03-10 10:36) [3]

Приведите:
1. Декларацию класса основной формы
2. Код записи данных в массив
3. Код чтения данных из массива
4. Как задается размер массива?



NPR2   (2004-03-10 11:40) [4]

unit Gl;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, Menus, ExtCtrls, DB, DBTables,Registry;
type
 TGl_Form = class(TForm)
.
public
 aHandle:array of THandle;
.
procedure TGl_Form.FormCreate(Sender: TObject);
.
   SetLength(aHandle,st_Com_Port.Count); количество СОМ портов из реестра
for m:=0 to st_Com_Port.Count-1 do
begin
   aHandle[m]:=CreateFile(PChar(st_Com_Port.Strings[m]),
                GENERIC_READ or GENERIC_WRITE,0,nil,
                OPEN_EXISTING,FILE_FLAG_OVERLAPPED,0);
.
end;
procedure TGl_Form.Timer_SworTimer(Sender: TObject);
....
   WriteFile(aHandle," 1 1c"+#239,6,dw_Write,@OverWrite);
.



Pages: 1 whole branch

Forum: "Main";
Current archive: 2004.03.28;
Download: [xml.tar.bz2];

Top









Memory: 0.56 MB
Time: 0.046 c
14-1077787909
Dimitriev S.
2004-02-26 12:31
2004.03.28
System selection for server application


1-1078771406
DDA
2004-03-08 21:43
2004.03.28
Image to image with color inversion


6-1073621638
Hooch
2004-01-09 07:13
2004.03.28
Outlook Express


7-1072795246
gavrila
2003-12-30 17:40
2004.03.28
как отследить события Com-порта, если он занят другим приложением


7-1073820337
Alexander from Minsk
2004-01-11 14:25
2004.03.28
Service Theory





afrikaans albanian Arabic armenian azerbaijani basque belarusian bulgarian catalan Chinese (Simplified) Chinese (Traditional) croatian Czech danish Dutch English estonian filipino finnish French
galician georgian German greek haitian Creole hebrew Hindi hungarian icelandic indonesian Irish italian Japanese Korean latvian lithuanian macedonian malay maltese norwegian
persian polish portuguese Romanian russian serbian slovak Slovenian Español swahili Swedish thai turkish Ukrainian urdu vietnamese welsh yiddish bengali bosnian
cebuano Esperanto gujarati hausa hmong igbo javanese kannada khmer lao latin maori marathi mongolian nepali punjabi somali tamil telugu yoruba
zulu
English French German Italian Portuguese Russian Spanish