Also ich habe jetzt wie mir oben empfohlen wurde den Befüllteil in's Synchronize geschoben.
Trotzdem funktioniert es nicht. was allerdings noch zu erwähnen ist, ist das ich ein Form1 und ein Form2 Formular habe.
Das Form2 soll mehrmals erzeugt werden.
Dies hab ich so Realisiert.

markieren

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
 TestForm: TForm2;
begin
 TestForm := TForm2.Create(nil);
 TestForm.Show;
end;

Jedenfals wird so die VST nicht befüllt.

Wenn ich es allerding so mache dann geht es wobei dann nur 1 Formural angezeit wird.

markieren

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
 TestForm.Show;
end;

Wo bin ich das auf dem Holzweg?

Das sind etwas wenige Informationen zum Befüllen des VST. Wenn du damit Probleme hast, dann solltest du den SourceCode sinnvollerweise auch hier zeigen.

Ich rate jetzt einfach mal: Du gibst deinem Thread eine Referenz auf die Form2 mit. Diese Referenz ist aber die globale Variable im zweiten Formular und dementsprechend nicht richtig "befüllt". Hat also keine gültige Referenz. Du musst deinem Thread entweder die richtige Instanz deiner Form mitgeben oder - in meinen Augen - besser direkt über ein im Thread definiertes Event arbeiten.

Mehr kann ich ohne SourceCode aus meiner leider nicht herauslesen.

EDIT: Habe mir gerade nochmal den SourceCode aus deinem vorherigen Post angeschaut. Wenn der jetzt noch genau so aussieht, dann wird es wohl genau der Grund sein, den ich oben beschrieben habe, warum es nicht funktioniert.

Na klar, du verwendest in dem Thread ja auch die globale Variable form2.
Es wird also immer nur in dieser Form der Tree gefüllt.

Übergib dem Thread die gewünscht Form-Instanz und verwende sie in dem Thread.

Tipp: Wenn du die Form2 selbst erstellst, dann schmeiß die automatisch erzeugte Form-Instant ganz weg, am Besten auch gleich diese globale Variable löschen.
Dann siehst'e wie schön es in deinem Thread knallt, wenn nicht mehr auf die globale Variable zugegriffen werden kann.

Meinst du dem Thread die Form.Handle übergeben?

Zitat von himitsu:

Na klar, du verwendest in dem Thread ja auch die globale Variable form2.
Es wird also immer nur in dieser Form der Tree gefüllt.

Übergib dem Thread die gewünscht Form-Instanz und verwende sie in dem Thread.

Tipp: Wenn du die Form2 selbst erstellst, dann schmeiß die automatisch erzeugte Form-Instant ganz weg, am Besten auch gleich diese globale Variable löschen.
Dann siehst'e wie schön es in deinem Thread knallt, wenn nicht mehr auf die globale Variable zugegriffen werden kann.

Wenn du per synchronize eine Methode des MainThreads ausführst, in der du dann die Daten direkt in die VST füllt, läuft diese Methode aber trotzdem im Thread und VST quittiert das mit einer passenden Meldung, dass das aus einem Thread nicht geht.
Du solltest die Daten per Synchronize an eine Datenstruktur im MainThread, auch über synchronize, übergeben, und anschließen schickst per PostMessage eine Msg an den Hauptthread. Nun kann der Hauptthread ein seinem eigenen Kontext das VST befüllen.

Hier mal aus dem Kopf, wie das ablaufen kann:

MainForm:

zusammenfalten · markieren

Delphi-Quellcode:

inferface

const
  WM_UPDATEVST = WM_USER + 1;
.
.
.
private
  LocalData: TDatenStruktur;
  procedure BuildVSTData;
public
  procedure UpdateVSTData(msg: TMessage); message WM_UPDATEVST;
  procedure UpdateDataFromThread(ThreadData: TDatenStruktur);
end;
.
.
.
implementation

procedure TMainForm.BuildVSTData;
begin
  //was auch immer du machst um deine Daten in die VST zu kriegen
end;

procedure TMainForm.UpdateVSTData(msg: TMessage);
begin
  BuildVSTData;
end;

procedure UpdateDataFromThread(ThreadData: TDatenStruktur);
begin
  LocalData.Assign(ThreadData); //Daten übertragen aus dem Thread in die Daten der MainForm
end;

Thread: (Im Create musst du das Handle der MainForm übergeben).

zusammenfalten · markieren

Delphi-Quellcode:

procedure Execute;
var
  FThreaData: TDatenStruktur;
begin
  FThreadData:=TDatenStruktur.Create;
  try
    //Daten sammeln
    synchronize(procdure
      begin
        frmMainForm.UpdateDataFromThread(FThreadData);
      end);
    PostMessage(MainThreadHandle, WM_UPDATEVST, 0, 0);
  finally
    FThreadData.Free;
  end;
end;

Ich habe das hier so einfach reingeklöppelt (bin grad nicht am Rechner). Wird also so nicht AdHoc funktionieren. Aber wie ich das meine wird schon deutlich.
So kannst du das machen. Die Daten übergibst du im Threadcontext, aber das befüllen der VST läuft dann im MainFormContext.

Man muss das natürlich noch einiges verfeinern.

Es geht leider immer noch nicht.

Irgendwie weis das VST oder der Thread nicht in Welche Form er schreiben soll.
Hab hier mal meinen Code in ne .rar angehängt.

Ich habe kein Delphi zur Hand um dir eine funktionsfähige Lösung zu bauen. Aber setz doch einfach mal die Tipps um die wir dir gegeben haben. Der erste Schritt mit dem du anfangen solltest wäre, dass du in Unit2.pas in Zeile 54 die Form2: TForm2; Deklaration entfernst. Genau das ist nämlich dein Problem. Diese globale Variable hat einen falschen bzw. keinen Wert, da du in Form1 die Form2 Instanz dynamisch anlegst.

Wenn du die Deklaration jetzt entfernt hast, dann wirst du automatisch feststellen, dass in Zeile 84 ein Fehler erscheint. Und diesen Fehler musst du beseitigen ... eben mit einer der vielen Lösungen die wir die vorgeschlagen haben.

Die sinnvollste Variante ist allerdings die, dass du einfach nur im Thread die Daten sammelst und diese an die Form2 Instanz übergibst. Den VST lässt du dann von der Form aufbauen. Der Thread sollte damit nichts zu tun haben.

Hallo Zodi,
ich habe mal dein Beispiel einbisschen abgeändert. Ich hoffe es kommt so ungefähr in die Richtung, wie du es haben willst. Ich habe das Gefühl, dass du dir das Thema Thread Programmierung mal genauer anschauen solltest. Weiters hoffe ich, dass es dir klar ist, dass eine Instanz von Form2 gleich beim Programmstart erzeugt wird. Das kannst du definitiv in den Projektoptionen "Formulare" unterbinden, indem du Form2 in die Verfügbare Formulare rüberschiebst.

lg,
jus