Pengen lihat tv gratis ?

Pengen lihat tv gratis ?

Watch TV On PC Free internet tv music movies documentaries tv episodes:

Watch TV On PC Free

Delphi – Merekam wave files (*.wav)

uses mmSystem;

{….}

procedure TForm1.Button1Click(Sender: TObject); // Record

begin

mciSendString(‘OPEN NEW TYPE WAVEAUDIO ALIAS mysound’, nil, 0, Handle);

mciSendString(‘SET mysound TIME FORMAT MS ‘ + // set time

‘BITSPERSAMPLE 8 ‘ + // 8 Bit

‘CHANNELS 1 ‘ + // MONO

‘SAMPLESPERSEC 8000 ‘ + // 8 KHz

‘BYTESPERSEC 8000′, // 8000 Bytes/s

nil, 0, Handle);

mciSendString(‘RECORD mysound’, nil, 0, Handle)

end;

procedure TForm1.Button2Click(Sender: TObject); // Stop

begin

mciSendString(‘STOP mysound’, nil, 0, Handle)

end;

procedure TForm1.Button3Click(Sender: TObject); // Save

var

verz: String;

begin

GetDir(0, verz);

mciSendString(PChar(‘SAVE mysound ‘ + verz + ‘/test.wav’), nil, 0, Handle);

mciSendString(‘CLOSE mysound’, nil, 0, Handle)

end;

Delphi – Menggunakan Microsoft Speech API

uses Comobj;

procedure TForm1.Button1Click(Sender: TObject);

var

voice: OLEVariant;

begin

voice := CreateOLEObject(‘SAPI.SpVoice’);

voice.Speak(‘Hello World!’, 0);

end;

Delphi – Merubah volume sound cards

uses

MMSystem;

procedure SetVolume(const volL, volR: Word);

var

hWO: HWAVEOUT;

waveF: TWAVEFORMATEX;

vol: DWORD;

begin

FillChar(waveF, SizeOf(waveF), 0);

waveOutOpen(@hWO, WAVE_MAPPER, @waveF, 0, 0, 0);

vol := volL + volR shl 16;

waveOutSetVolume(hWO, vol);

waveOutClose(hWO);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

SetVolume(14000, 14000);

end;

Delphi – Convert Flash SWF ke EXE

function Swf2Exe(S, D, F: string): string;

var

SourceStream, DestinyStream, LinkStream: TFileStream;

flag: Cardinal;

SwfFileSize: Integer;

begin

Result := ’something error’;

DestinyStream := TFileStream.Create(D, fmCreate);

try

LinkStream := TFileStream.Create(F, fmOpenRead or
try

DestinyStream.CopyFrom(LinkStream, 0);

finally

LinkStream.Free;

end;

SourceStream := TFileStream.Create(S, fmOpenRead or
try

DestinyStream.CopyFrom(SourceStream, 0);

flag := $FA123456;

DestinyStream.WriteBuffer(flag, SizeOf(Integer));

SwfFileSize := SourceStream.Size;

DestinyStream.WriteBuffer(SwfFileSize, SizeOf(Integer));

Result := ”;

finally

SourceStream.Free;

end;

finally

DestinyStream.Free;

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

Swf2Exe(‘c:\somefile.swf’, ‘c:\somefile.exe’,

‘c:\Program Files\Macromedia\Flash MX\Players\SAFlashPlayer.exe’);

end;

fmShareExclusive);
fmShareExclusive);