Как вызвать событие? , Есть поток из него надо вызвать событие

[VahaC]

примерно так:

Synchronize(Self.Component.OnRead(Self.Component));

[v1m]

я так понял мне надо поток в компонент не впихивать?

[VahaC]

почему же можешь впихивать, просто обращаться из потока к компоненту нужно с помощью Synchronize

[v1m]

приведи пример кода
потому что так не компилится да и не должно

type
  vmUDPSocket = class(TComponent)
  private
    SActive : boolean;
    SPort : longint;
    SBufSize : longint;
    WSAData : TWSAData;
    UDPSock : TSocket;
    ToAddr : TSockAddr;
    FromAddr : TSockAddr;
    RecTh : RecThread;
    EventRead : TNotifyEvent;
  protected
  public
    procedure Startup;
    procedure Cleanup;
  published
    property Active : boolean read sActive write sActive;
    property Port : integer read SPort write SPort;
    property BufferSize : longint read SBufSize write SBufSize;
    property OnRead : TNotifyEvent read EventRead write EventRead;
  end;
  RecThread = class(TThread)
  public
    RecSocket : TSocket;
    ReadSize : longint;
    status : longint;
    Component : vmUDPSocket;
  private
    WSAData : TWSAData;
    procedure recvdata(sock:TSocket);
  protected
    procedure Execute; override;
  end;

[leo]

Цитата v1m @ 29.06.10, 16:28

потому что так не компилится да и не должно

Не слышал про forward-объявления ?

RecThread = class; //= forward
 
vmUDPSocket = class(TComponent)
  ...
end;
 
RecThread = class(TThread)
...
end;

[v1m]

нет я до этого на паскале прогал))) да и сейчас прогаю ток в олимпиадном программировании))

[v1m]

я так ничего и непонял как мне синхронизировать
это

vmUDPSocket = class(TComponent)
  private
    SActive : boolean;
    SPort : longint;
    SBufSize : longint;
    WSAData : TWSAData;
    UDPSock : TSocket;
    ToAddr : TSockAddr;
    FromAddr : TSockAddr;
    RecTh : RecThread;
    EventRead : TNotifyEvent;
  protected
  public
    procedure Startup;
    procedure Cleanup;
  published
    property Active : boolean read sActive write sActive;
    property Port : integer read SPort write SPort;
    property BufferSize : longint read SBufSize write SBufSize;
    property OnRead : TNotifyEvent read EventRead write EventRead;
  end;

с этим

RecThread = class(TThread)
  public
    RecSocket : TSocket;
    ReadSize : longint;
    status : longint;
    Component : vmUDPSocket;
  private
    WSAData : TWSAData;
    procedure recvdata(sock:TSocket);
  protected
    procedure Execute; override;
  end;

я же тут как то Сomponent должен синхронизировать с компонентом иначе нету события

---

я сделал таймер на форме и RecThread в компоненте поместил в public и запрашивал прием сразу из потока все кул но как синхронизировать мой компонент по нормальному?

Сообщение отредактировано: v1m - 01.07.10, 18:26

[arj99]

Вопрос с синхронизацией на самом деле спорный. Я уже ссылался на библиотеку Indy как пример. Вызов некоторых событий из доп. потоков может быть чертой компонента.
Однако, в данном конкретном случае я советую не использовать Synchronize, а посылать свое сообщение (назвать его можно было бы, например, CM_DATAREAD), вызывать обработчик соответствующего события из процедуры обработки сообщения (она будет вызвана из основного потока). В параметрах сообщения указатель на буфер с принятыми данными и размер.

[v1m]

угу я уже это читал про посылку сообщения.
извиняюсь за тупой вопрос.
?: как сделать указатель на буфер в сообщении...

Сообщение отредактировано: v1m - 01.07.10, 18:37

[arj99]

Цитата v1m @ 01.07.10, 18:36

как сделать указатель на буфер в сообщении

Просто приведением типов к типу параметров сообщения

var
  Buff: array[0..1023] of Byte;
  FilledOn: Integer;//насколько конкретно заполнено
begin
  //заполнение буфера и конкретного размера данных
  SendMessage(hComponent, CM_DATAREAD, Integer(@Buff), FilledOn);
  //...
end;

или вариант с динамическим распределением буфера, освобождение в этом же коде:

var
  pBuff: PByte;
  DataSize: Integer;//сколько данных начитано
begin
  //возможно выяснение размера данных...
  pBuff := GetMem(<SomeValue>);//конкретный размер может быть получен по разному: либо точное значение, либо "гарантированно" достаточный размер
  try
    //заполнение буфера и размера данных
    SendMessage(hComponent, CM_DATAREAD, Integer(pBuff), DataSize);
    //...
  finally
    FreeMem(pBuff);
  end;
end;

также с дин. распределением буфера, но освобождением на приемной стороне

var
  pBuff: PByte;
  DataSize: Integer;//сколько данных начитано
begin
  //возможно выяснение размера данных...
  pBuff := GetMem(<SomeValue>);//конкретный размер может быть получен по разному: либо точное значение, либо "гарантированно" достаточный размер
  //заполнение буфера и размера данных
  //если буфер выделялся с запасом, а реальных данных получено меньше, то нужно либо перераспределить его /ReallocMem/, либо передавать размер распределенный,
  //а реальный размер полезных данных как-то дополнительно /например, в начале буфера зарезервировать несколько байт под это/
  PostMessage(hComponent, CM_DATAREAD, Integer(pBuff), DataSize);
  //дальше поток занимается своими делами, не ждет, память будет освобождена компонентом
  //*thread says*: пойду выпью какао с зефиром :)
end;

[v1m]

сейчас попробую)

[v1m]

а как в параметрах сообщения достать этот указатель?

[arj99]

ну дык обратным приведением ж

var
  pBuff: PByte;
  DataSize: Integer;
begin
  pBuff := PByte(wParam);
  DataSize := lParam;

[v1m]

PByte это тип array of integer ? или тот который стандартно задается?
и еще вопрос как handle взять?

Сообщение отредактировано: v1m - 02.07.10, 08:05

[arj99]

Тот который стандартно задается, но это только для примера. Ты можешь использовать любые указатели, какие тебе нравятся (только в данном не приводи к указателям дин. массивы и строки).
Handle должен передать сам компонент при запуске потока, удобнее всего параметром конструктора.