Netværk

Du er nød til ar browse hele netværket i gennem for shares for at have adgang til det hele.

Gå på http://borrishotl.com under \"networks\" download eksemplet NetConnection se om ikke det løser noget af problemet.

jens B

Hvilke netværks protokoller skal der anvendes ?

Den med forbindelsen til hele netværket i det enkelte firma computerne står i, er jo en indbygget del af Windows (nt/2000) så den forstår keg ikke helt, og hvad mener du med at skrive et navn til computeren. Mener du at navngive den så andre i netværket kan se den eller hva\' ?

Eller mener du i virkeligheden at du skal kunne søge en bestemt computer via et navn istedet for at skulle lede hele listen af navne igennem i andre computere ?

Og den med at have andgang til hele netværket i det firma computeren er, mener du i virkeligheden at det ville være smart hvis man fra en anden computer kunne koble sig op på en tilfældig computer i et netværk i et firma og så have adgang til hele netværket ?

Du må undskylde alle disse spørgsmål, men som du jo kan se er jeg ikke klar over hvad det egentligt er du vil.

hvis nu jeg kunne stave mit eget navn ville det hjælpe. Min hjemme side hedder naturligvis http://borrisholt.com

jens B

Jeg vil gerne lave et program, som kan ændre navnet på ens computer, f.eks fra OEMComputer til
LSN Computer, men brugeren skal SELV bestemme hvad computeren skal hedde.

På samme måde skal man også ændre navnet på den arbejdsgruppe, som computeren er i som f.eks OEMWorkggroup.

Håber at jeg har formuleret mig godt nok.

LSN

P.S. Min version af Delphi er 3, og jeg kan derfor ikke bruge de eksempler på borrisholt.com til ret meget. Eksemplerne virker ikke.

Kunsten at konvetere et Delphi 5 projekt til en tidligere version af Delphi :

I Delphi 5 er DFM filen en ren tekst fil, og kan derfor lukkes op i notepad.

Man skal derfor rekonstruere diverse forms selv.

man tagen den unit der hører sig til en form lukker den op i notepad.

Samtidigt tager man et nyt projekt i Delphi. Så sættter man diverse kontroller på. Det kan læses ud af pascal koden hvilke der er til stæde. De skal ikke side i nogen bestemt orden idet det tager DFM filen sig af senere.

Der efter tager man og tilføjer diverse events til kontrollerne.

Så trykker man [ALT]+[F12] (view as text) og klipper teksen fra din notepad representation ind i din editor. Så trykker man igen [ALT]+[F12] (view as form) også skal man bare klippe uniten ind i Delphi og vupti så virker det sq!

Ellers beder man forfatteren om en version der kører i tidligereversioner. Grunden til at jeg ikke bare gør det ved alle projekterne er at jeg ikke lige har tid ...

Hvis man har delphi 5 er det nemt gjort ... Det tager højst et minut ... (nogen frivillige ?)

Nå men  get og sæt computernavn gøres således :

Procedure SetComputerName (ComputerName : String);
begin
If Length(ComputerName) > MAX_COMPUTERNAME_LENGTH then
  SetLength(ComputerName,MAX_COMPUTERNAME_LENGTH);
Windows.SetComputerName(PChar(ComputerName));
end;

Function  GetComputerName : String;
var
  Size : Cardinal;
begin
Size := MAX_PATH;
SetLength(Result, MAX_PATH);
Windows.GetComputerName(PChar(Result),Size);
SetLength(Result, Pred(Pos(#0,Result)));
end;

Workgroup ... det ved jeg ikke lige men jeg kan da forske lidt i det.

Når du ændere computer navnet skal du genstarte før det virker ...

Jens B

Øhhh... Jeg kan ikke lige finde ud af, når man skriver det til mig som en \"hjemmelavet procedure\".
Jeg kan bedre, hvis der nu er placeret 2 edit-boxe ved navn Edit1 og Edit2 og en knap ved navn Button1. Jeg kan sagtens finde ud af at ændre navnene på objekterne, men det er bare lidt nemmere med det andet, som jo er lige til at gå til.

Skal man give mig kildekoden til et program, skal de helst se sådan ud:

Placér 2 edit-boxe på formen. Den ene skal hedde Edit1 og den anden skal hedde Edit2.

Derefter placeres der en knap ved navn Button1, på formen.

Dobbeltklik på Button1, og skriv følgende kode:

Procedure TForm1.Button1Click(Sender: TObject);
var
(variablerne angives)
begin
  (Den kode der skal til, for at ændre navnet på computeren i Edit1);

(Den kode der skal til, for at ændre navnet på den workgroup man vil have, i Edit2)

end;

Function SetWorkgroupName(Name : String);
begin
  {Ikke implementeret}
end;

Procedure SetComputerName (ComputerName : String);
begin
If Length(ComputerName) > MAX_COMPUTERNAME_LENGTH then
  SetLength(ComputerName,MAX_COMPUTERNAME_LENGTH);
Windows.SetComputerName(PChar(ComputerName));
end;



Procedure TForm1.Button1Click(Sender: TObject);
begin
  SetComputerName (Edit1.Text);
  SetWorkgroupName(Edit2.Text);
end;


Jens B

Ja. Det vil jeg så prøve...

Det var #¤&% (og en hel masse andre banneord) hurtigt at du svarede på det spørgsmål!!!!!!
Sidder du på Eksperten.dk 24 timer i døgnet eller hvad???

Lige efter jeg havde skrevet det andet der, skulle jeg lige have noget at spise og LIGE efter jeg havde spist, satte jeg mig ind til computeren igen og tjekkede Eksperten.dk, og læste dit indlæg.

Det må jeg sige. Det var sq hurtigt...

LSN

:-)

Jens B