Sound bei Memo

[5t3v0]

Hi ich versuch jetz ca 4stunden vergeblich eine lösung auf mein problem zu finden(hab ein bisschen selber gedacht und viel hier gesucht :lol: )

Mein Problem ist das ich will das eine wave datei abgespielt wird wenn eine zeile dazukommt in eine Memo.

ich hab mir das hier gedacht aba es geht nicht

Delphi-Quellcode:

 if Memo1.Lines.Add(Socket.ReceiveText) then
 PlaySound (nil,0,0);
 PlaySound ('msg.wav',hInstance,SND_RESOURCE or SND_ASYNC);

hoffe ihr findet den fehler oder eine andere lösung.

mfg
5t3v0

[Ultimator]

Vielleicht soltest du das Abspielen vom Sound im Memo1.OnChange-Ereignis ansiedeln ;-)

[5t3v0]

wenn ich das tue dann meldet der unbekannter bezeichner bei Socket vorher hatte ich das so, doch da hat der auch irgendwie gesagt das der ausdruck boolean sein muss nur versteh ich das noch nicht :(

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Form1.Show;
 Memo1.Lines.Add(Socket.ReceiveText);
 if Memo1.Lines.Add(Socket.ReceiveText) then
 PlaySound (nil,0,0);
 PlaySound ('msg.wav',hInstance,SND_RESOURCE or SND_ASYNC);
end;

[gothic_mike]

Zitat:

Zitat von 5t3v0

wenn ich das tue dann meldet der unbekannter bezeichner bei Socket vorher hatte ich das so, doch da hat der auch irgendwie gesagt das der ausdruck boolean sein muss nur versteh ich das noch nicht :(

Delphi-Quellcode:

procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
begin
 Form1.Show;
 Memo1.Lines.Add(Socket.ReceiveText);
 if Memo1.Lines.Add(Socket.ReceiveText) then
 PlaySound (nil,0,0);
 PlaySound ('msg.wav',hInstance,SND_RESOURCE or SND_ASYNC);
end;

also, nach deiner methode funktionierts so:

Delphi-Quellcode:

begin
  if (memo1.lines.Add(Socket.ReceiveText) > -1) then begin
    PlaySound(nil, 0, 0);
    PlaySound('msg.wav', hInstance, SND_ASYNC);
  end;
end;

es geht aber auch über OnChange:

Delphi-Quellcode:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  PlaySound(nil, 0, 0);
  PlaySound('msg.wav', hInstance, SND_ASYNC);
end;

[Dani]

Hi!

Wenn der Sound nur bei einem Zeilenumbruch (und nur bei Eingabe durch den Benutzer) abgespielt werden soll, würde ich OnKeyPress nehmen...

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
 If (Key = #13) then
  begin {Zeilenumbruch}
   PlaySound(...);
  end;
end;

[5t3v0]

woohooo THX es funzt vielen vielen vielen vielen dank :thumb:

mfg
5t3v0