Witam.
Znalazłem z milion artów i tysiące dem ale w żadnym, nawet w tym przy instalce Delphi nie mogę znaleźć w jaki sposób IdTCPServer1 ma wysyłać tekst do jedynego IdTCPClient1 z którym ma połączenie; było by miło jak wysyłać do jednego z kilku, ale cudów nie oczekuje, po prostu jestem załamany bo już cały dzień z tym walczę.
Przepraszam, znalazłem coś takiego co się kompilowało:
procedure TForm1.Timer1Timer(Sender: TObject);
// var S: String;
begin
if IdTCPClient1.Connected then
if IdTCPClient1.Socket.Readable() then
begin
S := Idtcpclient1.Socket.ReadLn;
MemoKlient.Lines.Add('Z serwera: ' + s);
end;
end;
procedure TForm1.ButtonSerwerWyslijClick(Sender: TObject);
var Threads : TList;
begin
if not IdTCPServer1.Active then Exit;
Threads := IdTCPServer1.Contexts.LockList;
TIdContext(Threads[0]).Connection.Socket.WriteLn('przykładowa odpowiedz serwera');
end;
ale komunikat się nie wysyłał a program się wieszał.
Byłbym wdzięczny za jakiś konkretny przykład a za jakiś link do dokumentacji tego ustrojstwa tez stokrotne dzięki z góry.
Gdyby nie to że mi się SimpleTCP nie chce zainstalować/ w znaczeniu kompilator nie przyjmuje :( zrobił bym na tym komponencie a tak ... kto mówił, że ma być łatwo :).
Albo może niech się wypowie właściciel np. Delphi 2007, któremu udało się zainstalować stabilna wersję INDY 9 w miejsce niestabilnej ponoć INDY 10.
Jakieś linki do takiej paczki pod D2007, chyba ze trzeba przerabiać to jakiś łopatologiczny kurs, bo tych drzwi sam nie wywarze jeśli mi nikt nie pokażę.