Avatar billede krab Praktikant
18. august 2001 - 20:36 Der er 14 kommentarer og
1 løsning

Netværk

Hvordan kan man Connecte til en anden computer, i et netværk, Man skal kunne gøre det ved at klikke på en Button, så skal den connecte til en ip man selv kan vælge i en Edit1, den også tjekke en Port i Edit2.
Er der ikke nogle der kan hjælpe,

<<Krab
Avatar billede safri2 Nybegynder
18. august 2001 - 20:56 #1
Jeg fatter ik\' en brik, af det! :0)
Avatar billede krab Praktikant
18. august 2001 - 21:01 #2
OKi, jeg kan ikke finde ud af at Connecte til en anden computer, jeg vil lave et program så man kan sende beskeder over et netværk, OKI, når man trykker på en button så skal den tjekke ip og port, som man selv skal skrive i en EDIT1 & EDIT2,
håber det var bedre
Avatar billede zardic Nybegynder
18. august 2001 - 21:19 #3
Hvilken version ad delphi?
Avatar billede krab Praktikant
18. august 2001 - 21:33 #4
delphi 5.0 enterprice,
Avatar billede zardic Nybegynder
18. august 2001 - 21:45 #5
with ClientSocket1 do
  begin
  Host := edit1.text;
  Port := strtoint(edit2.text);
  Active := True;
  Socket.SendText(\'Din text\');
  end;


Avatar billede krab Praktikant
18. august 2001 - 21:56 #6
Den text jeg sender skal komme som en FX. messagedlg, hvor man kan trykke på ok, mtconformation, [mbok], hvis du ved hvad jeg mener.
Avatar billede zardic Nybegynder
18. august 2001 - 22:02 #7
Var Temp:string;
begin
with ClientSocket1 do
  begin
  Host := edit1.text;
  Port := strtoint(edit2.text);
  Active := True;
  if InputQuery(\'text1\', \'text2 :\',Temp)    then
    if Length(Temp) > 0 then
  Socket.SendText(Temp);
  end;
Avatar billede krab Praktikant
18. august 2001 - 22:04 #8
kan du ikke lige rette det så det der står i min memo1 bliver sendt
Avatar billede krab Praktikant
18. august 2001 - 22:13 #9
hey, det man sender til skal der komme den messagedlg frem med det man har skrevet i memo1, de er det jeg mener,
Avatar billede zardic Nybegynder
18. august 2001 - 22:16 #10
Var Temp:string;
    I:integer;
begin
with ClientSocket1 do
  begin
  Host := edit1.text;
  Port := strtoint(edit2.text);
  Active := True;
  I:= 1;
  While I <= Memo1.Lines.Count do
  begin
    Socket.SendText(Memo1.Lines[I]);
    inc(I);
  End;

  end;
Avatar billede zardic Nybegynder
18. august 2001 - 22:18 #11
Do kan ikke med ClientSocket send et helt meno felt der skal du bruge it komponent det er i delepi 6
Avatar billede zardic Nybegynder
18. august 2001 - 22:21 #12
det sender det helt man ikke på en gang
Avatar billede krab Praktikant
19. august 2001 - 17:30 #13
hvorfor siger den \"Asynchronous Socket error 10061\" når jeg trykker F9 (RUN),
Avatar billede puddelundercover Nybegynder
20. august 2001 - 11:07 #14
Krab >> Prøv at kigge lidt på denne her komponent, jeg ved ikke om den kører under D5, men du kan jo prøve

http://www.torry.net/vcl/lan/networks/asnetcon.zip
Avatar billede jhald Nybegynder
25. august 2001 - 15:54 #15
Jeg forbinder til en server der kører i mirc(hvilket er irrelevant) - men der kommer den også med den \'Asynchronous Socket error 10061\' når serveren ikke er oppe at køre, det er nok samme ting du har... at du ikke har oprettet en server på den anden computer?

forresten nogle der ved om man ka\' få den til at lade være med det? ville jeg egentligt gerne vide også ...
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester