-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
Problem hab ich selbst mit SaveDialog gelöst. Danke nochmal für die Tips von dir Luckie und Co. :zwinker:
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
Ich denk mal ich bin wieder zu unübersichtlich...
K, Das mit der Batchdatei hat sich erledigt.
Die Batch wird gestartet, beendet sich selber und der Code wird weiter ausgeführt.
Da das Ganze dann voll automatisch ablaufen soll, soll eine MPEG-Datei (M2V) geöffnet werden,
ohne das der User den Pfad angeben muss oder per OpenDialog bestimmen muss.
Nach dem Zahlen in ein paar Edits...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
procedure TForm12.Button7Click(Sender: TObject);
var ProcID: Cardinal;
a,b,c :real;
begin
ProcID := 0;
//if OpenDialog1.Execute then
RunProcess('C:\DRPEncPrediction.bat', SW_SHOW, TRUE, @ProcID);
//ShowMessage(IntToStr(ProcID));
listbox1.Items.add('Done');
//OpenFile('Hier irgendwie die MPEG-Datei öffnen...');
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
Egal... ich kann
procedure TForm12.Button7Click(Sender: TObject);
var ProcID: Cardinal;
var a,b,c :real;
Schreiben ... das meinte ich.
Wie öffne ich den nun die Datei ohne OpenDialog?
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
RunProcess('C:\DRPEncPrediction.bat', SW_SHOW, FALSE, @ProcID);
Du meist sicher FALSE oder? Gibts irgendwo ne Documentation für RunProcess oder könntest Du mir die Parameter von RunProcess erklären? (Sorry, wenn die Frage noobiehaft ist...)
müsste doch TRUE statt FALSE rein, damit der Code wartet oder?
Lag richtig:
procedure TForm12.Button7Click(Sender: TObject);
var
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
@ Luckie: Und wie weiter? ...
function RunProcess(FileName: string; ShowCmd: DWORD; wait: Boolean; ProcID: PDWORD): Longword;
var
StartupInfo: TStartupInfo;
ProcessInfo: TProcessInformation;
begin
FillChar(StartupInfo, SizeOf(StartupInfo), #0);
StartupInfo.cb := SizeOf(StartupInfo);
StartupInfo.dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
OK hier nochmal im Detail: Ich drücke auf den Knopf:
procedure TForm12.Button8Click(Sender: TObject);
var a,b,c :real;
begin
Nun soll die Batchdatei gestartet werden, wobei Ich nicht weis wie der ShellExecuteandWait Befehl funktioniert.
ShellExecute(0, Nil, PChar('C:\DRPEncPrediction.bat'), Nil, Nil, SW_NORMAL);
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
Hi Luckie! Jo kann ich und danke das Du da bist!
K Ich lass eine Batch laufen. Beendet sich von selbst. Wenn dies passiert ist soll DRPEnc (das Programm worums hier geht) die Datei, die von der Batch erstellt wurde (eine M2V-Videodatei) selbstständig öffnen und die filesize ermitteln.
Ist dieser Wert kleiner als der gewollte (wurde vorher festgelegt) soll DRPEnc die Werte der Bitraten...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
procedure TForm12.Button8Click(Sender: TObject);
var a,b,c :real;
begin
//ShellExecute(0, Nil, PChar('C:\DRPEncPrediction.bat'), Nil, Nil, SW_NORMAL);
If Not OpenDialog3.Execute Then Exit;
Edit8.Text:=GET_FILE_SIZE(Opendialog3.filename,true);
a:= StrToFloat(Edit8.text);
b:=(a / 1024) /1024;
c:= StrToFloat(Edit9.text);
listbox1.Items.add('This Pass has the filesize of ' +FloatToStr(b)+ '...
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
28. Feb 2004
Das mit der filesize hab ich so gelöst:
function GET_FILE_SIZE(sFileToExamine:string;bInKBytes:boolean):string;
{for some reason both methods of finding file size return
a filesize that is slightly larger than what Windows File
Explorer reports}
var
FileHandle : THandle;
FileSize : LongWord;
d1 : double;
-
Forum: Sonstige Fragen zu Delphi
Delphi
by DRPEnc,
27. Feb 2004
Das mit dem OpenAndWait wurde schon gelöst. Mein neues Problem ist eine Datei zu öffnen aber OHNE OpenDialog. Bitte springt gleich zum ersten Post auf der Zweiten Page von diesem Thread. THX
#################################################################################
Ich code gerade an meinem Project DRPEnc.
Nun bin ich wieder bei einem Punkt angekommen, wo ich nicht weiter...