Aus Edit1 aus lesen

[Christian18]

Hallo,

Ich habe ein kleines Problem! Und zwar möchte ich den Pfad den in meinen Edit1 Feld angezeigt wird in mein ShellExecute haben. Hie einmal meine Procedure

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q test.zip "C:\*.*"', nil, SW_NORMAL);

Jetzt packt er alle daten in test.zip statt test.zip soll der Pfad aus dem Edit1 Feld rein. wie mache ich das???

Mit freundlichen Grüßen

Christian18

[Luckie]

Strings kannst du mit + verküpfen.

Mal so am Rande, kann es sein, dass ich diese Zeile schon zum 159874 mal hier sehe? :roll:

Damit das hier mal ein Ende hat:

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text' + "C:\*.*"'), nil, SW_NORMAL);

[S2B]

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q' + Edit1.Text' "C:\*.*"', nil, SW_NORMAL);

Oder hab ich mal wieder alles falsch verstanden?? :mrgreen:

edit: So schlimm darf man das hier nicht stehen lassen... :oops: Stimmt immer noch nicht alles, aber ich wollt den Code von Luckie nicht einfach kopieren!

[Luckie]

Bei dir fehlt ein Plus und der Cast nach PChar. Bei zusammengesetzten Strings greift die Compilermagic von Delphi nicht mehr.

[s14]

Nein, nur " + '" vergessen :mrgreen:

[S2B]

@Luckie: Ich glaub, ich schreib auch mal sowas wie du in meine Signatur! :mrgreen: Der war einfach nur eigefügt und das " ' + Edit1.Text" hinzugefügt...

[himitsu]

Delphi-Quellcode:

ShellExecute(FMain.Handle, nil, 'pacomp', PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"'), nil, SW_NORMAL);

Und damit es noch besser geht, würde ich die 2 Leerzeichen wieder einfügen und das eine Plus auf die richtige Seite verschieben :wink:

Delphi-Quellcode:

PChar('-a -c2 -r -P -q ' + Edit1.Text + ' "C:\*.*"')
                      ^                  ^

Edit1.Text + ' "C:\*.*"')
          ^^^^^

[Wheelie]

wieso muss man eigentlich mit PChar casten?? :gruebel:

[MrKnogge]

Weil TEdit.Text vom Typ string ist.

[himitsu]

und weil ShellExecute keine Strings mag.

MSDN > ShellExecute


[EDIT]
:gruebel: die DP mochte den Link wohl nicht

[Christian18]

Hallo,

Ich habe das eine Beispiel genommen und da kommt bei ein Fehler. Ich habe das obere Beipiel genommen. Folgender Feher tritt auf.

[Fehler] UTagessicherung.pas(58): Operator oder Semikolon fehlt

Was kann ich dagegen machen???

[Sharky]

Zitat:

Zitat von Christian18

...Was kann ich dagegen machen???

Ein Semikolon einfügen?

[HAF4ever]

dann fehlt dir irgendwo ein beistrich oder ein strichpunkt.
stell einfach mal die zeilen des codes ins forum, in denen er den fehler anzeigt

[Christian18]

Delphi-Quellcode:

ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text' + "C:\1*.*"'), nil, SW_NORMAL);

das ist ein code

[HAF4ever]

Zitat:

Zitat von Christian18

Delphi-Quellcode:

ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text'+ "C:\1*.*"'), nil, SW_NORMAL);

das ist ein code

das anführungszeichen nach dem Edit1.Text schaut mich sehr verdächtig an....

-->

Delphi-Quellcode:

ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text + 'C:\1*.*'), nil, SW_NORMAL);

[Sharky]

Da ist das ' vor dem plus nach dem Edit1.Text

Code:

 ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text [color=red]+ '[/color] "C:\1*.*"'), nil, SW_NORMAL);

[EDIT]Zu langsam :stupid: [/EDIT]

[Christian18]

das verstehe ich nicht jetzt funktioniert es nicht mehr

Delphi-Quellcode:

ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q' + Edit1.Text + 'C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);

und hiermit funktioniert es

Delphi-Quellcode:

  ShellExecute(FMain.Handle, nil, 'pacomp','-a -c2 -r -P -q hilfe.zip  "C:\Dokumente und Einstellungen\Christian Borck\Desktop\Daten\*.*"', nil, SW_NORMAL);

soll ich mal die ganze apüplication posten??

[Schubi]

Da fehlen nur die Leerzeichen vor und nach Edit1.text. also nach dem q und vor dem c:
etwa so:

Delphi-Quellcode:

ShellExecute(FTagessicherung.Handle, nil, 'pacomp',PChar('-a -c2 -r -P -q ' + Edit1.Text + ' C:\Projekte\SLNPraxis\Daten\1*.*'), nil, SW_NORMAL);

[Christian18]

OK Schubi,

Vielen Vielen Dank jetzt funktioniert es