for k := 0 to 15 do
begin
temp := StringReplace(aMacAddress, '-', '', [rfReplaceAll]);
for n := 0 to 8 do
begin
// 16x add Target-Mac-Adress / 16x die Ziel-Macadresse hinzufügen
Data := Data + Chr(StrToInt('$' + temp[1] + temp[2]));
Mm1.Lines.Add(data);
Delete(temp, 1, 2);
end;
end;
질문
강길남
안녕하세요 ?
델파이에서 손을 놓은지 15년만에 스터디 좀 하고있습니다.
집에 있는 프로젝터를 on/off 하는 프로그램을 만들고 싶어서 웹 서핑 중 wol 프로시져를 찾아서 사용해 보았습니다.
Chr(StrToInt('$' + temp[1] + temp[2])); 여기 까지는 정상적으로 값이 생성됩니다.
그러나
Data := Data + Chr(StrToInt('$' + temp[1] + temp[2]));
data 에 chr 값이 계속 붙어서 나와야 하는데 값이 전혀 없는것을 나타납니다.
이유를 모르겠습니다.
도움 부탁드립니다.
procedure TfrmServer.WakeUPComputer(aMacAddress: string);
var
Data: String;
temp: string;
k, n: integer;
idUDPClient: TIdUDPClient;
begin
try
SetLength(Data, 255);
for k := 0 to 8 do
begin
Data := Data + Chr(StrToInt('$FF')); // 6x add a FF / 6x ein FF hinzufügen
// Mm1.Lines.Add(data);
end;
temp := StringReplace(aMacAddress, '-', '', [rfReplaceAll]);
for k := 0 to 15 do
begin
temp := StringReplace(aMacAddress, '-', '', [rfReplaceAll]);
for n := 0 to 8 do
begin
// 16x add Target-Mac-Adress / 16x die Ziel-Macadresse hinzufügen
Data := Data + Chr(StrToInt('$' + temp[1] + temp[2]));
Mm1.Lines.Add(data);
Delete(temp, 1, 2);
end;
end;
try
idUDPClient := TIdUDPClient.Create(NIl);
idUDPClient.BroadcastEnabled := true;
idUDPClient.Host := '192.168.1.21';
idUDPClient.Port := 4352;
idUDPClient.Send(Data);
finally
FreeAndNil(idUDPClient);
end;
except
end;
end;
이 댓글 링크
다른 사이트에 공유하기
7 answers to this question
Recommended Posts
이 토의에 참여하세요
지금 바로 의견을 남길 수 있습니다. 그리고 나서 가입해도 됩니다. 이미 회원이라면, 지금 로그인하고 본인 계정으로 의견을 남기세요.