AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Unknown Directive Message

Ein Thema von jokerfacehro · begonnen am 1. Mär 2010 · letzter Beitrag vom 2. Mär 2010
 
Benutzerbild von sirius
sirius

Registriert seit: 3. Jan 2007
Ort: Dresden
3.443 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: Unknown Directive Message

  Alt 1. Mär 2010, 14:53
Beispiel für Event (ist leider nicht so chic wie bei Astat)

Delphi-Quellcode:
uses
  Windows,
  Winsock;





// aus WinSock2
type WSAevent=THandle;
function WSACreateEvent:WSAEvent;stdcall;
 external 'ws2_32.dllname 'WSACreateEvent';
function WSACloseEvent(hEvent:WSAevent):bool;stdcall;
 external 'ws2_32.dllname 'WSACloseEvent';
function WSAResetEvent(hEvent: WSAEvent):bool;stdcall;
 external 'ws2_32.dllname 'WSAResetEvent';
function WSAEventSelect(s:TSocket;hEventObject:WSAevent;lNetworkEvents:LongInt):Integer; stdcall;
 external 'ws2_32.dllname 'WSAEventSelect';
function WSAWaitForMultipleEvents(cEvents:DWord;
                                  lphEvents:Pointer;
                                  fWaitAll:bool;
                                  dwTimeOUT:DWord;
                                  fAlertable:bool):DWord;stdcall;
 external 'ws2_32.dllname 'WSAWaitForMultipleEvents';




var
  SockAddr1:TSockAddr= (sin_family:af_Inet;
                        sin_port:$0020; //=8192
                        sin_addr:(S_addr:$0100007F)); //home
  SockAddr2:TSockAddr= (sin_family:af_Inet;
                        sin_port:$0120; //=8193
                        sin_addr:(S_addr:$0100007F));

const WSA_WAIT_EVENT_0 = WAIT_OBJECT_0;


procedure main;
var wsaData:TwsaData;
    SockEvent:array[1..2] of WSAEvent;
    Socket1,Socket2:TSocket;
    WSAresult:Integer;
    buf:array[0..511] of char;
begin
  WSAStartUp(MakeWord(2,0),WSAData);

  Socket1:=Socket(af_Inet,Sock_Stream,IPProto_TCP);
  SockAddr1.sin_addr.S_addr:=inet_addr('127.0.0.1');
  Connect(Socket1,SockAddr1,sizeof(TSockAddr));
  SockEvent[1]:=WSACreateEvent;
  WSAEventSelect(Socket1,SockEvent[1],FD_Read);


  Socket2:=Socket(af_Inet,Sock_Stream,IPProto_TCP);
  Connect(Socket2,SockAddr2,sizeof(TSockAddr));
  SockEvent[2]:=WSACreateEvent;
  WSAEventSelect(Socket2,SockEvent[2],FD_Read);

  repeat
    WSAResult:=WSAWaitForMultipleEvents(2,@SockEvent,false,infinite,false);
    case WSAResult of
      WSA_WAIT_EVENT_0 : begin
        recv(Socket1,buf,512,0);
        if buf='exitthen break;
      end;
      WSA_WAIT_EVENT_0+1:begin
        recv(Socket2,buf,512,0);
      end;
      else
        break;
    end;
    WSAresetEvent(SockEvent[WSAResult-WSA_Wait_Event_0+1]);
  until false;


  WSACloseEvent(SockEvent[1]);
  WSACloseEvent(SockEvent[2]);
  WSACleanUp;
end;

begin
  main;
end.
Die Funktionen aus der WinSock2 musste ich reinschreiben, da in D7 diese Unit nicht existiert. In neueren Delphis muss man Imho nur Winsock2 einbauen und kann sich die Deklaration der WSAxxx-funktionen sparen.

Edit: Natürlich fehlt die komplette Fehlerbehandlung. Soll ja auch nur ein Beispiel sein.
Dieser Beitrag ist für Jugendliche unter 18 Jahren nicht geeignet.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:10 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz