odwoanie do TIdTCPClient z funkcji

mrmajer

2025-04-11T09:02:49+02:00

Rejestracja: dni
Ostatnio: dni

W moim programie mam 4 IdTCPClient jak odwoac sie do nich z funkcji ( tcpclient:TIdTCPClient to nie dziala)

Kopiuj

form1.IdTCPClient1;
form1.IdTCPClient2;
form1.IdTCPClient3;
form1.IdTCPClient4;

function readTCP(tcpclient:TIdTCPClient): string;

begin
  try
    try
         if form1.tcpclient.Connected then
      begin
           form1.Timer2.Enabled := False;
          form1.tcpclient.IOHandler.WriteLn('READ');
          s := form1.tcpclient.IOHandler.ReadLn();
          form1.Timer2.Enabled := True;
      end;
     except
       end;
  finally
  end;

end;

Marius.Maximus

2025-04-11T09:06:33+02:00

Rejestracja: dni
Ostatnio: dni
Postów: 2184

Zapomniałeś napisać co nie działa
i po co tutaj jest timer ?

mrmajer

2025-04-11T09:26:50+02:00

Rejestracja: dni
Ostatnio: dni

Funkcja jest w timer1 ale to nie jest istotne . Mam problem w tym miejscu '' function readTCP(tcpclient:TIdTCPClient): string; ''
nie wiem jak przypisac IdTCPClient do funkcji

to dziala ale nie chce tak robic:

Kopiuj

function readTCP(): string;
begin
  try
    try
         if form1.IdTCPClient1.Connected then
      begin
               result := form1.IdTCPClient1.IOHandler.ReadLn();
      end;
     except
       end;
  finally
  end;
end;


function readTCP(): string;
begin
  try
    try
         if form1.IdTCPClient2.Connected then
      begin
               result := form1.IdTCPClient2.IOHandler.ReadLn();
      end;
     except
       end;
  finally
  end;
end;

function readTCP(): string;
begin
  try
    try
         if form1.IdTCPClient3.Connected then
      begin
               result := form1.IdTCPClient3.IOHandler.ReadLn();
      end;
     except
       end;
  finally
  end;
end;

kAzek

2025-04-11T09:56:51+02:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Gorlice

Skoro w funkcji przekazujesz parametr to nie pisz tak jakby tego parametru nie było czyli if form1.tcpclient.Connected then itd. tylko odwołuj się do tego parametru czyli zwyczajnie if tcpclient.Connected then itd.

mrmajer

2025-04-11T10:10:18+02:00

Rejestracja: dni
Ostatnio: dni

kAzek napisał(a):

Skoro w funkcji przekazujesz parametr to nie pisz tak jakby tego parametru nie było czyli if form1.tcpclient.Connected then itd. tylko odwołuj się do tego parametru czyli zwyczajnie if tcpclient.Connected then itd.

Dzieki Kazek pomoglo, problemem bylo form1.
teraz dziala

Kopiuj

function readTCP(tcpclient:TIdTCPClient): string;

begin
  try
    try
         if tcpclient.Connected then
      begin
          
          tcpclient.IOHandler.WriteLn('READ');
          result := tcpclient.IOHandler.ReadLn();
      
      end;
     except
       end;
  finally
  end;

end;

grzegorz_so

2025-04-11T20:36:51+02:00

Rejestracja: dni
Ostatnio: dni

Tak na marginesie.

Funkcja/procedura nie będąca metodą klasy nie powinna się odwoływać do jakieś instancji obiektu(klasy) (u Ciebie "form1"). Do przekazania do procedury/funkcji instancji obiektu służą parametry.
W twoim kodzie sekcja try filnally end jest zupełnie niepotrzebna

Kopiuj

          form1.Timer2.Enabled := False; <=== !!!
          form1.tcpclient.IOHandler.WriteLn('READ'); <=== !!!

Kopiuj


function readTCP(aTcpClient:TIdTCPClient;aTimer:TTimer): string;

begin
  try
    if aTcpClient.Connected then
       begin
           aTimer.enabled:= False;
           aTcpClinet.IOHandler.WriteLn('READ');
           result := aTcpClient.IOHandler.ReadLn();
           aTimer2.Enabled := True;
       end;
  except
    on e:exeption
    begin
      // do something
    end 
  end;

end;