Entwickler-Ecke

Sonstiges (Delphi) - Bat zu delphi...problem


MagicRain - Sa 04.05.13 04:52
Titel: Bat zu delphi...problem
Hey ich möchte das was ich mit einer .Bat datei mache in delphi machen aber irgendwie hat das nicht so hin. Meine bat macht was sie soll aber mein delphi code nicht. Er öffnet zwar die exe's aber führt nichts aus mit der vmf datei....


Delphi-Quelltext 
1:
2:
3:
4:
5:
 
@echo off
"C:\bin\vbsp.exe" "D:\wwdwdwd.vmf"
"C:\bin\vvis.exe" "D:\wwdwdwd.vmf"
"C:\bin\vrad.exe" "D:\wwdwdwd.vmf"
pause


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
 
var
  x, y, z, q : String;
begin
  x := Edit1.text;
  y := Edit2.text; <<< dirs....
  z := Edit3.text;
  q := Edit4.text;

  shellexecute( 0, nil, PChar('C:\bin\vbsp.exe'), PChar('D:\wwdwdwd.vmf'), nil, SW_Normal);
  shellexecute( 0, nil, PChar('C:\bin\vvis.exe'), PChar('D:\wwdwdwd.vmf'), nil, SW_Normal);
  shellexecute( 0, nil, PChar('C:\bin\vrad.exe'), PChar('D:\wwdwdwd.vmf'), nil, SW_Normal);


Vielleicht kann mir ja jemand helfen :)


Delete - Sa 04.05.13 05:24
- Nachträglich durch die Entwickler-Ecke gelöscht -


MagicRain - Sa 04.05.13 06:11
Geht leider auch nicht erführt die programme zwar aus also öffnet die aber übergibt die datei wohl irgendwie nicht. Und so passiert nichts die datei wird nicht converted. Komisch....:(

MfG


WasWeißDennIch - Sa 04.05.13 09:07
Sind da evtl. Leerzeichen im Dateinamen? Dann musst Du diese wie in der *.bat auch in Anführungszeichen einschließen.


Mathematiker - Sa 04.05.13 09:29
Hallo,
ich würde es einmal mit

Delphi-Quelltext 
1:
 
shellexecute(application.handle,'open', PChar('C:\bin\vbsp.exe'), PChar('D:\wwdwdwd.vmf'), PChar('D:\'),SW_SHOWNORMAL);

versuchen.
Zumindest lasse ich mit

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
 
var exedatei,pdfdatei,ordner:pchar;
begin 
    getmem(exedatei,255);
    getmem(pdfdatei,255);
    getmem(ordner,255);
...
    strpcopy(ordner,tempstring);
    strpcopy(pdfdatei,tempstring+'xxx.pdf');
    findexecutable(pdfdatei,nil,exedatei);
    strpcopy(pdfdatei,'xxx.pdf');
    shellexecute(application.handle,'open',exedatei,pdfdatei,ordner,SW_SHOWNORMAL);
...
    freemem(exedatei);
    freemem(pdfdatei);
    freemem(ordner);
end;

PDF-Dateien anzeigen. Und es funktioniert.

Beste Grüße
Mathematiker


MagicRain - Sa 04.05.13 15:30
Danke euch! Wie immer super.... Da fehlten echt die "" :-O verdammt....C:\Program Files (x86).....leerzeichen :D

MfG


MagicRain - Sa 04.05.13 16:17
Nun nur noch ein problem...Und zwar will ich die dirs ja nicht hardcoded machen sonder über Editfelder übergeben lassen bloß wenn ich das so versuche funktioniert das ganze wieder nicht.


Delphi-Quelltext 
1:
 
C:\Program Files (x86)\bin\vqsp.exe


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
 
  x := Edit1.text; filepfad1
  y := Edit2.text; filepfad2
  z := Edit3.text; filepfad3
  q := Edit4.text; filepfad4

  shellexecute( 0, 'open', PChar('"x"'), PChar('"q"'), nil, SW_Normal);
  shellexecute( 0, 'open', PChar('"y"'), PChar('"q"'), nil, SW_Normal);
  shellexecute( 0, 'open', PChar('"z"'), PChar('"q"'), nil, SW_Normal);


Mach ich was falsch ?

MfG


platzwart - Sa 04.05.13 16:24

Delphi-Quelltext 
1:
 
PChar('"' + Edit1.Text + '"')


MagicRain - Sa 04.05.13 16:24
Oh man danke!!!!!

MfG


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!