ANTICHAT — форум по информационной безопасности, OSINT и технологиям

Можно. Через сокеты.
WinAPI.

А если не трудно где можно найти именно по этой теме материал? Или может есть у кого нибудь уже готовые тулзы?

Во первых, не правильно цетировал мой код!!!
Во вторых:
TComponent - класс является предком для всех классов, которые хотят быть компонентами. Правда, этот класс может быть предком только для невизуальных компонентов, т.е. невидимых во время выполнения, а на форме видимых только в виде квадратика с иконкой!

Конечно у тебя безупречный код проверки из всех компонентов формы наличие эдитов и наличия в них текста!!!
И такое видели... !!! Куда нам, таким тупарям, до тебя!!!!!

это почему же?
Просмотрим дерево наследования для TMemo, визуальный компонент, чтож начнем:
TMemo = class(TCustomMemo); -> TCustomMemo = class(TCustomEdit); -> TCustomEdit = class(TWinControl); -> TWinControl = class(TControl); -> TControl = class(TComponent).
Приехали...
сарказма не понял...

__________________
*********************************
*Я не волшебник ٩(๏̯͡๏)۶, только учусь...*
*********************************
Программы на заказ
Times to fly...

а в делфи вроде так =)

Вот исходник локального чата:

[.code]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdUDPServer, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient, StdCtrls, WinSock;

type
TForm1 = class(TForm)
Edit1: TEdit;
Memo1: TMemo;
Button1: TButton;
IdUDPClient1: TIdUDPClient;
IdUDPServer1: TIdUDPServer;
procedure Button1Click(Sender: TObject);
procedure IdUDPServer1Status(ASender: TObject;
const AStatus: TIdStatus; const AStatusText: String);
procedure IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdUDPClient1.Send(Edit1.Text);
end;



procedure TForm1.IdUDPServer1UDPRead(Sender: TObject; AData: TStream;
ABinding: TIdSocketHandle);
var
StringFormatedStream: TStringStream;
s:String;
begin
StringFormatedStream := TStringStream.Create('');
StringFormatedStream.CopyFrom(AData, AData.Size);
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
ABinding.SendTo(ABinding.PeerIP, ABinding.PeerPort, s[1], Length(s));
StringFormatedStream.Free;
end;

end.
[.code]
При компиляции в 7-ой дельфи вылезают ошибки:
[Error] Unit1.pas(21): Undeclared identifier: 'TIdSocketHandle'

[Error] Unit1.pas(50): ')' expected but identifier 'PeerIP' found

[Error] Unit1.pas(50): 'END' expected but ')' found

[Error] Unit1.pas(18): Unsatisfied forward or external declaration: 'TForm1.IdUDPServer1Status'

[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

Помогите плз с этой х***й разобраться

ronald на что указывает красная строка при ошибке???

вот ошипочные строки

ошипка
[Error] Unit1.pas(19): Undeclared identifier: 'TIdSocketHandle'
Строка
ABinding: TIdSocketHandle);
---------------------------------------------------------
ошипка
[Error] Unit1.pas(46): ')' expected but identifier 'PeerIP' found
Строка
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
---------------------------------------------------------
ошипка
[Error] Unit1.pas(46): 'END' expected but ')' found
строка
Memo1.Lines.Add(ABinding.PeerIP+' '+StringFormatedStream.DataString);
---------------------------------------------------------
ошипка
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
строка
Unit1 in 'Unit1.pas' {Form1};

Подскажите как при помощи indy проверить ссылку на существование с выводом результата?