Hjælp til netværk

Tags:    delphi

User
Bruger #687 @ 25.01.02 13:45
Jeg er ved at lave et program til mit netværk, jeg ville høre hvordan man gør så når man skriver noget i en editbox, og trykker på send i clienten kommer dette til at stå i en label på serveren...

Håber meget på hjælp !!

Spacemann

P.S. Er der nogen som gider sende demoen Chat i delphi 6 til mig på spacemann@mail.dk.



4 svar postet i denne tråd vises herunder
1 indlæg har modtaget i alt 3 karma
Sorter efter stemmer Sorter efter dato
User
Bruger #814 @ 26.01.02 01:31
Yep, hvis du bare kender navnet på den computer, du vil sende til, kan det lade så gøre sådan:

procedure TForm1.Button1Click(sender:TObject);
begin
memo1.lines.savetofile('\\\\ComputerNavn\\c\\Message.txt');
end;

Server-programmet, som modtager meddelelsen, kan laves således:

procedure TForm1.Button1Click(sender:TObject);
begin
memo1.lines.loadfromfile("C:\\Message.txt');
end;

Hvis du ikke kender navnet på computeren, kan du lade brugeren skrive navnet således:
ComputerNavn er selvfølgelig af typen TEdit:

procedure TForm1.Button1Click(sender:TObject);
begin
memo1.lines.savetofile('\\\\' + ComputerNavn.text +'\\c\\Message.txt');
end;

På den måde, kan du sende beskeder over netværket på!



Hvis du rigtig vil lære Client/Server så kig her på Borlands hjemmeside http://community.borland.com/article/0,1410,10224,00.html Der er en slags tutorial.

Mvh. <a href="mailto:martintaarn@hotmail.com"><b>/TP</b></a>



Hele linket skal med... også kommaerne!

[Redigeret d. 25/01-02 15:20:07 af TP]



Eller du kan bruge den nemme måde og gå ind på torry.net og hente et mailslot component !

Why Aren't You Coding ?
Aaangel



t