delphi en netwerk connecties (vervolg)

[Johnny5]

sorry dat ik een nieuwe topic maak, Janoz. maar je email is ongeldig en icq heb ik hier niet.

dit is het vervolg van delphi en seriele connecties

ik heb nu wat componenten gevonden die geen foutmelding geven. ik gebruik nu tcpclient en tcpserver.
dat de server werkt zal wel (kan ik niet testen) en de client werkt waarschijnlijk wel, als ik iets laat verzenden blijft het programma enige tijd stilhangen (vermoedelijk pogingen te doen om te verzenden) maar er kan geen connectie worden gemaakt (afgeleid uit het feit dan mijn rij beep; 's niet afgaan).

server wordt gestart op de volgende manier:
procedure TLeerlingenadministratie.runserverClick(Sender: TObject);
begin
TcpServer1.LocalPort := '55555';
TcpServer1.Active := True;
end;
(ik hoop dat 55555 geldig is)

en verzenden gaat zo:
procedure TLeerlingenadministratie.SendLl(Sender: TObject; leerling:String);
var
tel1: Integer;
begin
TcpClient1.RemoteHost := 'college\026_02';
TcpClient1.RemotePort := '55555';
llnaambox.Text := '00001';
try
llgebdatbox.Text := '00002';
if TcpClient1.Connect then
begin
llklasbox.Text := '00003';
beep; beep; beep; beep; beep; beep; beep;
for tel1 := 0 to length(leerling) - 1 do
TcpClient1.Sendln(leerling[tel1]);
end;
finally
lladresbox.Text := '00004';
beep; beep;
TcpClient1.Disconnect;
end;
end;

die textbox-en met 0000. zijn ter identificatie. 00003 komt niet op beeld, die komt ook pas als er connectie is (if TcpClient1.Connect then).

zo ver ik kan zijn staat alles goed, als er een fout is hoor ik dat graag.
indien er geen fout is: kan het zijn dat het niet werkt omdat ik op een goed beveiligd netwerk tussen 2 computers een connectie probeer te maken?

het is een schoolnetwerk met een domein, iedereen heeft een paswoord nodig om een pc te gebruiken.

en: kan ik deze code gebruiken om lokaal te testen, dat dezelfde computer zowel verzend als ontvangt?

[ACM]

[e-mail] ongeldig

[curry684]

Johnny5 schreef op 18 september 2002 @ 12:48:
dat de server werkt zal wel (kan ik niet testen)

Dat kun je wel:
telnet localhost 55555

Ik zou wel een poortnummer onder de 32768 pakken als ik jou was, en voorbeeldcode in code-tags plaatsen (<code=delphi> met rechte haken)

Met dit telnetvoorbeeld kun je handmatig je server testen.

[curry684]

Johnny5 schreef op 18 september 2002 @ 12:48:
zo ver ik kan zijn staat alles goed, als er een fout is hoor ik dat graag.
indien er geen fout is: kan het zijn dat het niet werkt omdat ik op een goed beveiligd netwerk tussen 2 computers een connectie probeer te maken?

Lijkt me sterk dat er een firewall tussen 2 workstations zit (je impliceert dat ze op hetzelfde domain hangen) dus dat zou moeten werken.

het is een schoolnetwerk met een domein, iedereen heeft een paswoord nodig om een pc te gebruiken.

TCP stoort zich daar niet aan (lagere comms-layer)

en: kan ik deze code gebruiken om lokaal te testen, dat dezelfde computer zowel verzend als ontvangt?

Geen probleem.

Regel ff die code-tags, dan kan ik de code tenminste lezen.

[Janoz]

Weet je trouwens wel zeker of die remote hostnaam klopt?

Daarnaast.. Heb je al een delphi voorbeeldje van een client/server combi (vaak een simpel chat ding) gedownload?

En idd.. mijn naam is rood dus mijn mail is [e-mail] (mail in ICQ profile is opgeheven, maar laat ik vanwege spam gedoe gewoon daar staan)

[Johnny5]

mijn hostnaam klopt, die staat naast mij en die zie je als je inlogd, die hebben we bovendien zelf ingesteld.

ik had een ander email adres achterhaald, [e-mail] ofzo.

die code tags komen eraan, zodra ik weet hoe het moet

[Johnny5]

server wordt gestart op de volgende manier:

Delphi:

procedure TLeerlingenadministratie.runserverClick(Sender: TObject);
begin
  TcpServer1.LocalPort := '32222';
  TcpServer1.Active := True;
end;

procedure TLeerlingenadministratie.SendLl(Sender: TObject; leerling:String);
var
  tel1: Integer;
begin
  TcpClient1.RemoteHost := 'college\026_02';
{college is btw domeinnaam, is die perse nodig?}
  TcpClient1.RemotePort := '32222';
  llnaambox.Text := '00001';
  try
    llgebdatbox.Text := '00002';
    if TcpClient1.Connect then
    begin
      llklasbox.Text := '00003';
      beep; beep; beep; beep; beep; beep; beep;
      for tel1 := 0 to length(leerling) - 1 do
      TcpClient1.Sendln(leerling[tel1]);
    end;
  finally
    lladresbox.Text := '00004';
    beep; beep;
    TcpClient1.Disconnect;
  end;
end;

en dat telnet werkt trouwens niet "verbinding mislukt"

[LordLarry]

Je kan het ook op dezelfde pc testen door 127.0.0.1 als ip te nemen of localhost als hostname.

Je kan gewoon de debugger gebruiken en die rare biepjes weghalen hoor.

Ik krijg zo langzamerhand de indruk dat dit een beetje te moeilijk voor je nog is. Je zit op de goede weg en je zou er zo toch echt zelf wel uit moeten kunnen komen. Debug (echt debuggen, geen rare biepjes) wat meer en stel gerichte vragen over echte problemen waar je een oplossing voor gezocht heb, maar niet uit komt. Anders blijven we je aan het handje houden. Als je al niet kon lopen dan val je toch om op het punt dat we je weer loslaten.

[ Voor 0% gewijzigd door LordLarry op 18-09-2002 13:55 . Reden: typo ]

[Johnny5]

ja je hebt eigenlijk wel gelijk, maarja compergekken zijn nou eenmaal lui

dan zal ik me nu weer lekker frustreren dat ik het niet in 1 keer kan vinden
HET LUKT ME WEL ..... ooit

[curry684]

Johnny5 schreef op 18 September 2002 @ 13:13:
en dat telnet werkt trouwens niet "verbinding mislukt"

Dan draait je server niet en zit daar dus een fout

Waarom gebruik je niet gewoon de standaard TServerSocket component? Die werkt perfect voor zover ik 'm ooit gebruikt heb...

[curry684]

Johnny5 schreef op 18 september 2002 @ 13:13:

Delphi:

  TcpClient1.RemoteHost := 'college\026_02';
{college is btw domeinnaam, is die perse nodig?}

Kun je ook op commandline proberen:
ping 026_02
Als dit goed gaat heb je 'college' niet nodig, en anders zou ik nog even de fully qualified naam pingen:
ping college\026_02
Ik zou er zelf de voorkeur aan geven om op IP te werken... meestal betrouwbaarder.

[Johnny5]

ip geven werkt niet, die veranderd telkens. DHCP.

TserverSocket? ik zal nog een keer alles doorspitten aan componenten.

[LordLarry]

TServerSocket is bijna hetzelfde als TtcpServer. Beide door Borland gemaakt. TtcpServer werkt ook onder linux. TServerSocket niet, want die zit vast aan WinSock. Het maakt dus niet zo heel veel uit. Het zijn beide goed werkende componenten, daar kan het niet aan liggen.

[Johnny5]

misschien leuk dat ik jullie op de hoogte houd
ik gebruik nu serversocket en clientsocket. hij geeft al geen foutmelding meer dat er iets misgaat met connecten ofdat hij helemaal niets doet. hij geeft nu errors OVER de connectie die blijkbaar al tot stand is gebracht

"Socket must be in blocking mode" is de error. ik zal dat toch wel kunnen vinden

[curry684]

Is dat serverside of clientside knaller? Nu kun je overigens wel weer met Telnet testen...

[Johnny5]

het is client side, met de server uit zegt hij hetzelfde, dus client geeft de fout voordat er connectie is toch geen verbinding

kun je het geoloven? zit ik een hele ochtend naar blocking settings te zoeken, staan die gewoon in de property's tab links in beeld

[Johnny5]

grrr, ik heb alles op nonblocking staan en nu werkt het nog niet. "socket must be in blocking mode" komt nogsteeds. deze melding geeft hij op:

Delphi:

TheStream := TWinSocketStream.Create(ClientSocket1.Socket, 60000);

iemand hier meer ervaring mee?

[curry684]

Johnny5 schreef op 19 september 2002 @ 12:10:
grrr, ik heb alles op nonblocking staan en nu werkt het nog niet. "socket must be in blocking mode" komt nogsteeds. deze melding geeft hij op:

Delphi:

TheStream := TWinSocketStream.Create(ClientSocket1.Socket, 60000);

iemand hier meer ervaring mee?

Uhm misschien een stomme vraag: waarom ga je alles op non-blocking zetten als ie duidelijk zegt dat het op 'blocking mode' moet staan?

Ik kan wel geloven ja dat je geen stream kunt gebruiken als je op non-blocking werkt, die dingen zijn bedoeld voor synchrone processing. Zet de hele rotzooi gewoon op blocking...

[curry684]

Even voor de zekerheid opgezocht, en jawel hoor, in grote letters op de helppagina van TWinSocketStream:

Note: TWinSocketStream does not work with non-blocking sockets.

[Johnny5]

ver**** G*D K**TE ik beredeneer: er is een fout dus waarschijnlijk staat hij op "blocking mode waardoor die ontstaat".
maar het moest zijn: er is een fout. zet em eens op blocking.

bekankt

[Reptile209]

'k Heb wel zo m'n twijfels over die servernaam: college\026_02. Wat doet die backslash daar? Of moet ik nu naar www.watbenjedan.com ?

[Johnny5]

nah, daar hoef je niet heen. dat is de domein naam van het netwerk. die heb ik ondertussen weggehaald want zonder werkt het ook.

ik heb mijn probleem nu weer getraceert naar server pffff.

Socket Error 10061: WSAECONNREFUSED
This problem is caused by the host computer rejecting the connection due to excessive load or technical problems. Try to connect again later.
(ik gok op "technical problems")

[curry684]

CONNREFUSED krijg je ook als de hele poort niet beschikbaar is... probeer nu gewoon eens die telnet truc om te kijken of die server draait...

[Johnny5]

owkie, met een werkend ander netwerk chat programma aan, lukt telnet niet! dus mijn vertrouwen in die "truc" is nu weg.

[LordLarry]

ik denk dat je dan niet veel snapt van tcp/ip of er zit een firewall tussen of je hebt uberhaupt geen connectie met die andere computer. Probeer het eens met 2 progrmmatjes op de *zelfde* computer. Gewoon lokaal dus. localhost of 127.0.0.1

[curry684]

Doe eens gewoon telnet localhost 25, als je NT/2k/XP hebt krijg je dan je SMTP server voor de kiezen... telnet werkt gewoon, en als ie het niet doet ligt de fout in jouw server.

Post gewoon je hele code eens, of als je het niet aan het forum vertrouwt mail me prive door... kan ik er vanavond eens naar kijken.

[Johnny5]

tnx voor het aanbod, maar het is me al gelukt. ik heb een ander programma totaal geript, nouja ingevoegd en op de achtergrond mee laten draaien . nah is niet efficient maar het werkt wel.

en tnx voor al jullie help. het werkt nu