Kontextmenü, Parameterübergabe, Dateiupload

[jacko1988]

Hier der ParamStr-Code:

Code:

 {$R *.res}
 {$R 'Win7UAC.res'}

var StrParam1: String;
 begin

   if (ParamCount>0) and (FileExists(ParamStr(1))) then
      begin
         Form1.PDFoeffnenKontext(ParamStr(1));         
      end;

Wenn nicht alles initialisiert ist, wieso ist es dann möglich über OpenDialog den Upload zu vollziehen
davor und danach (wobei das danach Wurst ist)?

[CCRDude]

DIrekt nach den $R sieht das aber ganz nach dem dort oben beschriebenen aus - Form1 ist noch nicht initialisiert!

Vielleicht bringst Du den Code besser in FormCreate oder FormShow unter und nicht am Anfang des Hauptprogrammes?

[jacko1988]

Wenn ich den Code in Unit 1 reinbringe, wird der Code auch nicht mehr ausgeführt. Woher auch. Wenn der im Hauptcode nicht ist, kann die Procedure in Form 1 nicht aufgerufen werden.

[DeddyH]

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
begin
  if (ParamCount>0) and (FileExists(ParamStr(1))) then
    PDFoeffnenKontext(ParamStr(1));        
end;

Wieso sollte sich das nicht aufrufen lassen?

[jacko1988]

Hab den Code aus dem Project Code rausgenommen und in Form1.Show gefügt.
Wenn ich jetzt per Kontexmenü einen Parameter Aufruf starte, passiert gar nichts.

[CCRDude]

Gar nichts = es öffnet sich kein Fenster, der Prozess wird nicht einmal gestartet? Oder "gar nichts" = "nicht das, was du erwartet hast"?

Außerdem: hast Du mal nen Breakpoint in die erste Zeile in FormShow gesetzt und geschaut, ob das aufgerufen wird?

Hätte Dir auch schon zu Anfang geholfen, weil Du dann in den Watches gesehen hättest, dass Form1 = nil

[Sir Rufo]

Wenn die Instanz Form1 nicht erzeugt wurde und diese Instanz aber angesprochen werden soll, dann knallt es eben.

Zeig doch mal die gesamte dpr, da ist irgendwo auch der Teil, wo die Instanz Form erzeugt wird, aber wohl erst nach deinem Aufruf.