danke dir, mit diesem Code z.B. habe ich es auch schon getestet, beim Anklicken bekomme ich nur eine Exeption.
was müsste ich denn noch alles an diesem Code anpassen?
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
Data, temp:
string;
k, n: integer;
begin
Data := '
';
for k := 0
to 5
do
begin
Data := Data + Chr(StrToInt('
$FF'));
// 6x add a FF / 6x ein FF hinzufügen
end;
temp := StringReplace(Edit1.Text, '
-', '
', [rfReplaceAll]);
for k := 0
to 15
do
begin
temp := StringReplace(Edit1.Text, '
-', '
', [rfReplaceAll]);
for n := 0
to 5
do
begin
// 16x add Target-Mac-Adress / 16x die Ziel-Macadresse hinzufügen
Data := Data + Chr(StrToInt('
$' + temp[1] + temp[2]));
Delete(temp, 1, 2);
end;
end;
//Example with TIdUDPClient of Indy
//IdUDPClient1.Send('255.255.255.255', '80', Data); // Send it / Verschick es
end;
Wenn ich das so übernehme und in Edit1 meine Mac-Adresse mit- Trennzeichen schreibe passiert nichts, ich muss also noch die // vor
IdUDPClient1.Send('255.255.255.255', '80', Data); wegmachen, oder nicht? warum ist das eigentlich kommentiert?
Wenn ich also die // rausnehme kann ich nicht compilieren, er meckert die '' bei '80' an!
Wenn ich die wegmache mache passiert auch nichts wenn ich den Button drücke
Deinen 2. Link habe ich auch schon gefunden, allerdings ist der von 2003 und wollte den nicht noch mal aufwühlen. Die Demos zum download in diesem Thread sind leider nicht mehr verfügbar.