Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Vytvorte nový projekt kliknutím na tlačidlo " Súbor " , " New Project " z hlavného menu . Po zobrazení výzvy , dať mu názov " PipeServer . " Udržujte všetky ostatné nastavenia na ich predvolené hodnoty a kliknite na " OK " .
Tie budú prezentované s prázdnym oknom v grafickom užívateľskom rozhraní ( GUI ) , návrhára .
2
Pridanie tlačidla do rozhrania pretiahnutím ikony tlačidla " " zo zoznamu zložiek na ľavej strane a pádu na okne .
Pretože sa jedná o jednoduchý návod , nemusíte sa starať o premenovanie alebo prispôsobenie textu.
3
Dvakrát kliknite na tlačidlo . Tým sa dostanete z GUI návrhára a do zdrojového kódu editor pre vašu aplikáciu . To bude tiež vytvoriť udalosť pre prípad, keď používateľ klikne na tlačidlo
Pridať tento kód k tejto udalosti : .
Dim rúrku As New System.IO.Pipes.NamedPipeServerStream ( " testPipe " , IO.Pipes.PipeDirection.Out ) pipe.WaitForConnection ( )
Dim sw ako New System.IO.StreamWriter ( potrubie ) sw.AutoFlush = Truesw.WriteLine ( " Posielame tieto dáta " )
Chystáte sa riadok po riadku , to vytvorí nový PipeServer a pomenuje ju " testPipe . " Vyhlasuje, že táto aplikácia môže zapisovať iba informácie von na potrubie a nečítal ju späť .
potom sa zastaví na čakať na klientskej aplikácie sa k nemu pripojiť . Akonáhle sa tak stane , otvorí StreamWriter , ktorý bude robiť to jednoduchšie písať informácie k trubke . Hovorí sa StreamWriter automaticky zapisovať informácie do potrubia , akonáhle prijme , a zapíše jednoduchý reťazec potrubie na čítanie klientom . Celým
To dokončí servera .
4
Otvorte novú kópiu Visual Basic a vytvoriť ďalší nový projekt s názvom " PipeClient . " Rovnako ako predtým , predvolené možnosti sú dostačujúce .
5
Pridať textové pole pretiahnutím " textové pole " ; .. ikonu zo zoznamu zložiek do okna
6
tlačidlo Pridať pretiahnutím zo zoznamu zložiek
7
Dvakrát kliknite na tlačidlo , prejdite na . editor zdrojového kódu a vytvorte udalosť
Pridať tento kód k tejto udalosti :
Dim rúrku As New System.IO.Pipes.NamedPipeClientStream ( " localhost " , " testPipe " ) potrubia . Connect ( )
Dim reader ako New System.IO.StreamReader ( potrubie )
Dim Data As String
dát = reader.ReadLine ( )
TextBox1.Text = údaje
Chystáte sa riadok po riadku , to otvorí PipeClient a pomocou rovnakého názvu potrubia , ako ste boli zvyknutí na serveri , sa pripája k tomuto potrubia .
otvorí StreamReader , aby bolo ľahko čítať dáta z potrubia v reťazci , a to prečíta jeden riadok z potrubia . To sa potom zmení na textové pole sa zobrazí reťazec je dostal od servera .
8
Kliknite na zelené šípky v oboch projektov na spustenie jednotlivých aplikácií súčasne . Potom, čo sú obaja beží , kliknite na tlačidlo v každej aplikácii . Poradí nezáleží .
Počas krátkej doby , reťazec " Posielame tieto dáta . " By sa mal objaviť v textovom poli žiadosti o PipeClient .