title image


Smiley Ein Beispiel ...
Hier ist einmal ein kleines Beispiel das zeigt wie einfach das Handling ist.

procedure TForm1.Button1Click(Sender: TObject);

var

ResultString: array[0..1023] of Char;

MCIError: integer;

begin

// MCI-Befehl aufrufen

MCIError := MCISendString(PChar('play e:\abc.wav'), ResultString, Length(ResultString), 0);

// Rückgabewert anzeigen

// In der mmsystem.pas sind einige Konstante dafür definiert

// z.B. MCIERR_FILE_NOT_FOUND für 'Datei nicht gefunden'

MCIResultLabel.Caption := ResultString;

case MCIERROR of

0: MCIErrorNumberLabel.Caption := 'ok';

else MCIErrorNumberLabel.Caption := IntToStr(MCIERROR);

end;

// MCI-Fehlermeldung holen und anzeigen

MCIGetErrorString(MCIError, ResultString, Length(ResultString));

MCIErrorTextLabel.Caption := ResultString;

end;



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: