Arsip: Membuat MP3 Compressor Sendiri

var
s:String;
x:String;
begin
if not fileexists(edit1.Text ) then
begin
MessageBox(handle,’Source file is not found.’,'Error’,MB_ICONHAND);
exit;
end;
if Lowercase(ExtractFileExt(edit1.Text))<>’.mp3'; then
begin
MessageBox(handle,’Source file is not an MP3 file.’,'Error’,MB_ICONHAND);
exit;
end;
Params:=’"‘+Compressor +’" ‘;
Params:=Params + ‘-m ‘+Lowercase(cbm.Items[cbm.itemindex]){[1]}+’ ‘; //mode
s:=lowercase(cbq.Items[cbq.itemindex]);
x:=";
if s = ’standard’ then x:=’- preset cbr ';
if s = ‘medium’ then x:=’- preset cbr 1';
if s = ‘high’ then x:=’- preset cbr 32';
if s = ‘highest’ then x:=’- preset cbr 44';
params:=params+x+’"‘+edit1.Text +’" "‘+changeFileExt(edit1.Text,’_compressed.mp3')+’"‘;
b.Enabled:=False;
try
RunDos(Params, nil);
finally
b.Enabled:=true;
end;
MessageBox(handle,’Completed.’,'Information’,MB_ICONINFORMATION or MB_OK);
End;

unit ucons;
interface
uses Windows, SysUtils, Forms;
type
TConsoleProgress = procedure (const Buffer:PChar); procedure RunDos(DosApp:String; consoleProgress:TconsoleProgress) ;
implementation
procedure RunDos(DosApp:String; consoleProgress:TconsoleProgress) ; const   ReadBuffer = 2400;
var
Security : TSecurityAttributes;
ReadPipe,WritePipe : THandle;
start : TStartUpInfo;
ProcessInfo : TProcessInformation;
Buffer : Pchar;
BytesRead : DWord;
Apprunning : DWord;
begin
With
Security do
begin
nlength := SizeOf(TSecurityAttributes) ;
binherithandle := true;
lpsecuritydescriptor := nil;
end;
if Createpipe (ReadPipe, WritePipe, @Security, 0) then
begin
Buffer := AllocMem(ReadBuffer + 1) ;
FillChar(Start,Sizeof(Start),#0) ;
start.cb := SizeOf(start) ;
start.hStdOutput := WritePipe;
start.hStdInput := ReadPipe;
start.dwFlags := STARTF_USESTDHANDLES +     STARTF_USESHOWWINDOW;
start.wShowWindow := SW_HIDE;
if CreateProcess(nil,  PChar(DosApp),  @Security,  @Security,  true,  NORMAL_PRIORITY_CLASS,
nil,  nil,  start,  ProcessInfo)    then
begin
repeat
Apprunning := WaitForSingleObject(ProcessInfo.hProcess,100) ;           Application.ProcessMessages;
until (Apprunning <> WAIT_TIMEOUT) ;
Repeat
BytesRead := 0;
ReadFile(ReadPipe,Buffer[0],   ReadBuffer,BytesRead,nil) ;
Buffer[BytesRead]:= #0;
OemToAnsi(Buffer,Buffer) ;
if @ConsoleProgress<>nil then                   consoleprogress(buffer);
until (BytesRead < ReadBuffer) ;
end;
FreeMem(Buffer) ;
CloseHandle(ProcessInfo.hProcess) ;
CloseHandle(ProcessInfo.hThread) ;
CloseHandle(ReadPipe) ;
CloseHandle(WritePipe) ;
end;
end;
end.