var-Parameter mit Thread nutzen

[sirius]

(Ich nehme an das TDataframe ein Record ist)

Ich versuchs mal an deinem Beispiel (geänderte Zeilen sind kommentiert)

Delphi-Quellcode:

type PDataframe=^TDataFrame;  //hinzugefügt

type
  TBulkCommandThread = class(TThread)
  private
    ...
    ...
    Data                    : PDataFrame; //geändert
    ...
    ...
  protected

  public

  end;


  TBulkReceiveCommandThread = class(TBulkCommandThread)
  private
    ...
    ....
  protected
    procedure Execute; override;
  public
    constructor create(tPipeHandle    : USB_PIPE_HANDLE;
                       tData          : PDataFrame;  //geändert
                       tDSPMessage    : Pointer;
                       tStatus        : Pointer);
  end;



constructor TBulkReceiveCommandThread.create(tPipeHandle    : USB_PIPE_HANDLE;
                                             tData          : PDataFrame;   //geändert
                                             tDSPMessage    : Pointer;
                                             tStatus        : Pointer);
begin
    PipeHandle      := tPipeHandle;
    Data            := tData;
    DSPMessage      := tDSPMessage;
    Status          := tStatus;
    inherited create(False);
end;





procedure TBulkReceiveCommandThread.Execute();
//hier würde ich zum synchronisieren den Inhalt von TDataframe kurz zwischensepichern
//var tempData=TDataFrame;
begin
  ...
  ...

  // receive Data
  tempData:=Data^;  //ich weiß nicht, ob du Data vorbelegen musst (evtl. synchronisieren)
  bRet := USBReadAsync(PipeHandle,      
                       tempData,
                       USBcb.nDATA,
                       FenumProcInst);
  
  Data^:=tempData;  //Diese Zeile muss synchronisiert werden
  ...
  ...
end;

Aufrufen kannst du den Constructor so:

Delphi-Quellcode:

//es existiert in der Klasse, die den Thread aufruft eine Variable DataFrame vom Typ TDataFrame;
BulkReceiveCommandThread:=TBulkReceiveCommandThread.create(tPipeHandle,
                                                           @DataFrame,
                                                           tDSPMessage,
                                                           tStatus);

Du übergibst jetzt mit PDataframe nicht den Record sondern einen Zeiger auf den Record. Der Record selbst existiert jetzt nur einmal im MainThread.