Netværk.....

øvvvvvv hvor er du kedelig!
gør dog noget ud af din minisite

Var det bedere...???

Hvor lærer man alt det der Smilly. Som data studerende eller hva?

hehe ! helt iorden!

hmmm, hvorfor har du lagt det indunder "delphi"??

Jeg har haft computer de sidste 14 år, så jeg har et par år på bagen.....
Jeg skal bruge Delphi til at sætte
netværket op med, så det er derfor jeg lægger det ind under Delphi....

hmm, hvad var så din første computer?
Et eller andet der kom før '86-serien?

Nej jeg er en af de gamle 64 fyrer....
Så amiga, så PC'er.....

nå? vi skal så langt tilbage i tiden!

hmmmm, det minder mig lige om Mogens og hans tidsmaskine!
http://www.eksperten.dk/spm.asp?id=2271

er der en eller anden der vil købe en amiga 2000 med kick 1.3 og og 2.04 med omskifter, 500 amiga disketter, en gammel bunke blade, en 1084s skærm, 2 drev, 6-7 joystisk, 2 mus, tastatur osv. 1000 kr så er det dit!

jeg har også en amiga 500 med externt tastatur og 200 disketter, 3 joysticks osv... ca 500 kr

Er det blevet til et køb og salg forum??? *gg*

Var der nogen af jer, der havde
et svar til mit spørgsmål....???

tja.... 3 modemer,
US Robotics Sportster 336 ext fax voice
Lasat Internet 336 ext fax voice
Noname 56k v90 int fax voice

1500 for dem alle....

en gammel pioneer analog tuner og en båndoptager... 200kr

hmmmmm, hvad med Smillys spørgsmål?

Ja, det var åbentbart ingen der havde
svaret til dette spørgsmål.

jeg tror ikke at der er så mange delphihajer her inde...

prøv på usenet

Smilly: ja, måske usenet, eller prøv at forhøre dig på IRC - Undernet - #delphi med lidt held er der nogen derinde der kan hjælpe dig :)

- DJ

Davs du... dette er bare noget jeg har kopieret, men det er løsningen....

Men jeg ved sq ikke lige hvordan man installere TCP/IP protokollen

Venlig Hilsen
TRoXa

interface
  uses
    Windows, SysUtils, Registry, WinSock, WinInet;

  type
    TConnectionType = (ctNone, ctProxy, ctDialup);

  function ConnectedToInternet : TConnectionType;
  function RasConnectionCount : Integer;


  implementation

  //For RasConnectionCount =======================
  const
    cERROR_BUFFER_TOO_SMALL = 603;
    cRAS_MaxEntryName      =  256;
    cRAS_MaxDeviceName      =  128;
    cRAS_MaxDeviceType      =  16;
  type
    ERasError = class(Exception);

    HRASConn = DWord;
    PRASConn = ^TRASConn;
    TRASConn = record
      dwSize: DWORD;
      rasConn: HRASConn;
      szEntryName: Array[0..cRAS_MaxEntryName] Of Char;
      szDeviceType : Array[0..cRAS_MaxDeviceType] Of Char;
      szDeviceName : Array [0..cRAS_MaxDeviceName] of char;
    end;

    TRasEnumConnections =
        function (RASConn: PrasConn; { buffer to receive Connections data }
                  var BufSize: DWord;        { size in bytes of buffer }
                  var Connections: DWord  { number of Connections written to buffer }
                  ): LongInt; stdcall;
  //End RasConnectionCount =======================


  function ConnectedToInternet: TConnectionType;
  var
    Reg      : TRegistry;
    bUseProxy : Boolean;
    UseProxy  : LongWord;
  begin
    Result := ctNone;
    Reg := TRegistry.Create;
    with REG do
    try
      try
        RootKey := HKEY_CURRENT_USER;
        if OpenKey('\Software\Microsoft\Windows\CurrentVersion\Internet settings',False) then begin
          //I just try to read it, and trap an exception
          if GetDataType('ProxyEnable') = rdBinary then
            ReadBinaryData('ProxyEnable', UseProxy, SizeOf(LongWord) )
          else begin
            bUseProxy := ReadBool('ProxyEnable');
            if bUseProxy then
              UseProxy := 1
            else
              UseProxy := 0;
          end;
          if (UseProxy <> 0) and ( ReadString('ProxyServer') <> '' ) then Result := ctProxy;
        end;
      except
        //Obviously not connected through a proxy
      end;
    finally
      Free;
    end;

    //We can check RasConnectionCount even if dialup networking is not installed
    //simply because it will return 0 if the DLL is not found.
    if Result = ctNone then begin
      if RasConnectionCount > 0 then Result := ctDialup;
    end;
  end;

  function RasConnectionCount : Integer;
  var
    RasDLL    : HInst;
    Conns    : Array[1..4] of TRasConn;
    RasEnums  : TRasEnumConnections;
    BufSize  : DWord;
    NumConns  : DWord;
    RasResult : Longint;
  begin
    Result := 0;

    //Load the RAS DLL
    RasDLL := LoadLibrary('rasapi32.dll');
    if RasDLL = 0 then exit;

    try
      RasEnums := GetProcAddress(RasDLL,'RasEnumConnectionsA');
      if @RasEnums = nil then
        raise ERasError.Create('RasEnumConnectionsA not found in rasapi32.dll');

      Conns[1].dwSize := Sizeof (Conns[1]);
      BufSize := SizeOf(Conns);

      RasResult := RasEnums(@Conns, BufSize, NumConns);

      If (RasResult = 0) or (Result = cERROR_BUFFER_TOO_SMALL) then Result := NumConns;
    finally
      FreeLibrary(RasDLL);
    end;
  end;

hehe... jeg håber da at det var et svar hehe

Venlig Hilsen
TRoXa

bøøøøøøøøhhhhhhhhhhhhhhfffffffffsssss????? (en lyd som man bare siger!)
Det var sq da en af et svar

troxa> Hmm, det er noget kode til at se om man er online - via en modem-forbindelse. Der er også andre måder at forbinde til nettet på..

Hmm, ideen er vel at et program ikke selv skal gå ind og pille i brugerns netværksopsætning. Hvis tcp/ip ikke er installeret, kan man evt. fortælle brugeren hvordan det skal gøres, men ikke automatisk gøre det - der er nemlig nok fejlkilder i den proces i forvejen.

Som du nok har fundet ud af når du installerer netværket, så er der en del der kan gå galt - ingen grund til at lave et program der kan det samme som windows's eksisterende guide.

Vil ud have mere info?

Hej Irj,

Jeg har fået lavet opgaven, og den er også kommet i produktion, så jeg har altså fundet ud af hvordan jeg skulle gøre. Det var sgu ingen dans på roser, men jeg har klaret det, og ja du har ret der er mange ting som kan gå galt, så der skal et par fejl checks rutiner til.....

Smilly

Hmm, men er du sikker på at det er en god idé, når man nu tænker over det? Jeg ville fx. ikke tøve med at smide et program, der pillede i mine netværksopsætninger, ud! Jeg vil simpelt hen ikke finde mig i det, da der er gået en del tid med opsætningen af det...

hehehe, nej det er rigtigt, men dette program er ikke tiltænkt personer som dig. Det skal bruges af folk som ikke kan finde ud af at lave deres egen internet forbindelse.
Det er et ISP program, så det skulle være rigtigt brugervenligt.......

Well, okay. Men hvordan skal folk nogensinde lære det, hvis de ikke kan gå igennem en 1-2-3 instruktion?

Anyways, fedt hvis det virker for begyndere... :o)