Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako poslať Array cez Winsock vo Visual Basic 6

Ovládacie winsock vo Visual Basic 6 umožňuje vytvárať programy , ktoré nadväzujú spojenie medzi sebou po sieti s jedným Program funguje ako server a druhý ako klient . Ovládanie winsock má niekoľko metód používaných pre pripojenie , odosielanie a prijímanie dát . Môžete použiť literál dáta , informácie z textových polí , alebo dokonca premenné odovzdávať informácie . Avšak , pretože pole používa indexy a majú niekoľko dátových položiek úspešnom vykonaní týchto prác trochu inak , než okolo iné druhy dát . Návod
Server Program
1

Otvorte nový projekt Visual Basic . Kliknite na " projekt " v ponuke a potom kliknite na tlačidlo " súčasti " . Prejdite nadol v dialógovom okne , kliknite na " Microsoft Winsock Control 6.0 " box dať šek v ňom , potom kliknite na tlačidlo " OK " tlačidlo .
2

Dvakrát kliknite na ovládací prvok Winsock v paneli nástrojov pridať do formulára . Tiež dvakrát kliknite na ovládací prvok CommandButton a ovládací prvok TextBox dvakrát pridať tieto tri ovládacie prvky do formulára . Kliknite na tlačidlo a pretiahnite je zabezpečiť im tak , ako by ste chceli .
3

Dvakrát kliknite na formulár otvoríte podprogram Form_Load . Zadajte nasledujúci kód :

WinSock1.LocalPort = portNumberWinSock1.Listen

server program beží , tento kód sa otvorí Winsock a čaká na pripojenie klienta na dodanom číslo portu . Buď použiť premennú nastaviť číslo portu alebo zadajte číslo priamo , ako portu 21 alebo 22
4

Otvorte podprogram WinSock1_ConnectionRequest a zadajte nasledujúci kód : .

Ak WinSock1 . Štátna < > sckClosed ThenWinSock1.CloseEnd IfWinSock1.Accept requestID

skontroluje , či ovládací prvok Winsock nadviazanie pripojenia , a ak áno , zavrie ju a potom prijíma požiadavky od klientov na vytvorenie nového pripojenia .
5

Otvorte podprogram WinSock1_DataArrival a zadajte nasledujúci kód :

Dim STRD Ako StringWinSock1.GetData medom, vbStringText1.Text = Text1.Text & medom

prvý riadok vytvorí nový reťazec premennej získať prichádzajúce dáta od klienta . Druhý riadok smeruje ovládanie winsock ukladá dáta do premennej . Tretí riadok pripojí nové dáta do ľubovoľného existujúceho textu v prvom textovom poli

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené