SHARE
TWEET

Untitled

a guest Oct 10th, 2019 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Weiter oben:
  2. ...
  3. procedure RemoveMkdir;
  4. procedure SendTest(str: String);
  5.  
  6. Weiter unten:
  7.  
  8. function TPazoSite.RoutesText: AnsiString;
  9. var
  10.   i: integer;
  11. begin
  12.   Result := '<u>' + Name + '</u> ->';
  13.   for i := 0 to destinations.Count - 1 do
  14.   begin
  15.     Result := Result + TPazoSite(destinations[i]).Name;
  16.   end;
  17.   Result := Result + #13#10;
  18.   SendTest(Result);
  19. end;
  20.  
  21. procedure TPazoSite.SendTest(str: String);
  22. var
  23.   sndsock:TUDPBlockSocket;
  24. begin
  25.   sndsock:=TUDPBlockSocket.Create;
  26.   try
  27.     sndsock.createsocket;
  28.     sndsock.Bind('0.0.0.0','0');
  29.     sndsock.connect('234.5.6.7','22401');
  30.     sndsock.SendString(str);
  31.   finally
  32.     sndsock.free;
  33.   end;
  34. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top