Allgemeine Fragen und Sound by OnClick

[Knotti2015]

1.Hallo wie kann ich den Button 'btnSend' so programmieren, dass er seine Funktion nicht ausführt wenn die memobox 'memSend' leer ist.

2. Wenn eine Funktion fertig ausgeführt worden ist wie kann ich dann diesen ClickSound von Windows abspielen?

3. Ich programmiere hier ien Chat Programm nun muss ich aber immer genau die IP Adresse oder den Netbios Namen des Computers angeben. Wie kann ich das durch ein * ersetzten, sodass die Nachricht an alle geöffneten Chatpprogramme im Netzwerk geht?

[Nikolas]

Eine Frage-> ein Thread

Sonst:
1) if memsend.text = '' then exit; 2) MediaPlayer1.play; Könntest du mit einem TMediaplayer machen. Den Sound müsstest du aber suchen. Meld dich mal, wenn du ihn gefunden hast, würd mich auch interessieren.

// aargh geht doch so wie ich's zuerst hatte

[Phoenix]

Uh. Bitte zu jeder Frage einen eigenen Thread aufmachen!

Deshalb beantworte ich auch nur die erste

Delphi-Quellcode:

procedure TForm1.btnClick(Sender: TObject);
begin
   if memSend.Text = '' then
      exit;   // raussrpingen wenn memo leer...

   // hier Dein code
end;

[Knotti2015]

Okay ich mahce für die 3. Frage ein anderen Thread auf.

Aber ich muss ja

Delphi-Quellcode:

if memSend.Text = '' then
      exit;

Delphi-Quellcode:

if memSend.Lines = '' then

      exit;

Nur da bekomme ich TString und String sind Inkopatilbe Typen


Her mal der auszuführende code

Delphi-Quellcode:

Procedure TForm1.btnSendClick(Sender: TObject);
var
  I: Integer;
begin
Memo2.Lines.Assign(memSend.Lines);
  TcpClient1.RemoteHost := edtRemoteHost.Text;
  TcpClient1.RemotePort := edtRemotePort.Text;
  try
    if TcpClient1.Connect then
      for I := 0 to memSend.Lines.Count - 1 do
      TcpClient1.Sendln(memSend.Lines[I]);
  finally
    TcpClient1.Disconnect;
  end;
  Memsend.Clear;
end;

[Luckie]

Hm. Dein erste Code sollte doch funktionieren. Die Fehlermeldung bekommst du nur bei deinem zweiten Code Beispiel. Wo ist jetzt dein Problem?

[Knotti2015]

naja wenn ich das mit lines einsetzte geht es zwar aber soweie ich auf senden klicke und nochts drinn steht sendet er es

[Nikolas]

Du hast ja auch nicht geschrieben, dass er es nicht machen soll. Ins btnSend-OnClick muss du noch den if memsend.text ='' then exit reinschreiben.

[Knotti2015]

Aja jetzt geht es danke Toxman und alle anderen.

[-NIP-]

man könnte ja auch

Code:

if  memSend.Text = '' then
//nix reinschreiben
else
//dein Code

wenn das andere nicht klappt!

edit: oder ist das dann nicht mehr API

[Aenogym]

Zitat von -NIP-:

edit: oder ist das dann nicht mehr API

nö, das ist eher fürs DelphiLanguage/ObjectPascal-Forum gedacht. aber das mit dem Sound ist ein API-Gebiet.

Aenogym