Kontextmenü, Parameterübergabe, Dateiupload

[DeddyH]

Also wenn das Formular samt aller darauf befindlichen Komponenten bereits zu sehen ist, fällt mir im Moment auch nichts mehr ein. Möglicherweise handelt es sich um einen Seiteneffekt, der durch Code verursacht wird, den Du nicht gepostet hast, aber das ist reine Kaffeesatzleserei. Ich würde noch das "Form1." vor lbStatuschng entfernen, aber das ist wohl hier nicht die Ursache.

[jacko1988]

hmmm...

kann jetzt schlecht knapp 3000 Codezeilen posten.

Aber vielleicht kann jemand den Code Testen, zumindest den der dafür verantwortlich ist eine pdf hochzuladen, bzw. den Code für

1. Kontextmenü
2. Parameterübergabe
3. Was tun mit der PDF

Wäre furchtbar nett wenn sich jemand findet.

Edit: Mir fällt gerade noch eine möglichkeit ein. Ist es möglich dem OpenDialog nur per Code zu sagen das er diese Datei öffnen soll?
Irgendwas muss OpenDialog doch machen was ich so Manuel mit der Parameterübergabe nicht mache.

Mit freundlichen Grüßen
jacko1988

[Sir Rufo]

Der OpenDialog macht (wie der Name schon vermuten lässt) lediglich ein Dialogfenster auf um eine Datei auszuwählen. Den Punkt hast du schon erledigt.

3000 Zeilen würde ich auch nicht posten sondern in ein zip File packen und hier als Anhang rein.

Am interessantesten wäre aber der Part, wo du den ParamStr ausliest und die Funktion aufrufst.
Ich vermute, das passiert in der dpr. Dann wäre dieser Dateiinhalt der wichtigste.

Und ich teile die Meinung von DeddyH und himitsu, dass da noch nicht alles richtig initialisiert wurde.

[BUG]

Zitat von jacko1988:

Irgendwas muss OpenDialog doch machen was ich so Manuel mit der Parameterübergabe nicht mache.

Ich bin nicht sicher, aber verändert OpenDialog nicht das Arbeitsverzeichnis?

Zitat von Muetze1:

Der OpenDialog verändert genauso den Pfad (abschaltbar über die Option: odChangeDir)

[DeddyH]

Wenn man absolute Pfade verwendet, sollte das Arbeitsverzeichnis aber keine Rolle spielen.

[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.