小弟想將WinSocketAPI作成COM ，然後給ASP調用，在傳送方面可以實現 但接收方面遇至困難，小弟要如何才能攔截WINSocket的接收事件然後在 接收完畢後才結束COM ，傳值給ASP？ 除了WINSocket以外有其它方法嗎?如INDY或HOOK

您可以定義一個事件來接收 INDY 或 WinSocket 的接收事件。

type
  TShitClass = class
  private
    procedure DataReceived(Sender: TComponent;NumberBytes: Integer; FromIP: String; Port: Integer);
  end;    Var
  Shit    : TShitClass;

再將接收的資料交由COM指針來處理。

沒那麼簡單吧！ 原始程式如下 unit Unit1; {$WARN SYMBOL_PLATFORM OFF} interface uses ActiveX, Mtsobj, Mtx, ComObj,Messages,WinSock,StdVcl; const WM_SOCK = WM_USER 1; TCP_PORT = 5432; type TMtsConn = class(TMtsAutoObject, IMtsConn) protected function ServerRun(const comm: WideString): OleVariant; safecall; private DllHandle : THandle; HasConnected: boolean; CliSocket: integer; CliAddrIn:TSockAddrIn; procedure InitSocket; procedure SendData(Content: string); procedure ReadData(var Message: TMessage); message WM_SOCK; procedure SockConnect; end; implementation uses ComServ; function TMtsConn.ServerRun(const comm: WideString): OleVariant; begin InitSocket; if (not HasConnected) then SockConnect; SendData(comm); //問題在這，在函數結束以前希望能返回接收數據 CloseSocket(CliSocket); end; procedure TMtsConn.InitSocket; var wsadata: TWsadata; err{, optval}: integer; begin WSAStartup($0101,WSAData); CliSocket := socket(AF_INET, SOCK_STREAM,0); if (CliSocket = INVALID_SOCKET) then begin CloseSocket(CliSocket); exit; end; //定義WinSock接收事件 DllHandle:=GetHandle(ciMultiInstance); WSAAsyncSelect(CliSocket, DllHandle , WM_SOCK, FD_READ); end; procedure TMtsConn.SockConnect; var err: integer; begin CliAddrIn.sin_addr.s_addr:=inet_addr(PChar('127.0.0.1')); CliAddrIn.sin_family := AF_INET; CliAddrIn.sin_port :=htons(TCP_PORT); repeat err:=connect(CliSocket,CliAddrIn, SizeOf(CliAddrIn)); if err = -1 then begin HasConnected := false; break; end else begin HasConnected := true; end; until err=0; end; //數據發送方法 procedure TMtsConn.SendData(Content: string); begin Send(CliSocket,Content[1],length(Content),0); end; //數據接收事件 procedure TMtsConn.ReadData(var Message: TMessage); var Event: word; Buf:array[0..1023] of char; DataLen: integer; begin Event := WSAGetSelectEvent(Message.LParam); case Event of FD_READ: begin DataLen := Recv(CliSocket,Buf,1024,0); buf[DataLen] := #0; // 如何才能返回這裡的數據給COM呼叫著 Result:=Buf; end; end; end.

問題在於函數調用完畢，COM不會去等待SOCKET的接收事件就會自行結束

您是說 Outgoing Interface嗎？

無解，除非東方不敗再世！ 替代方案：在SERVER端建立ECHO，讓CLIENT一連上馬上收到資料 不過缺點是會占掉二個PORT

建議改用 ActiveX 方式。 用 ConnectionPoint 方式，可能比較好辦事。

引言: 建議改用 ActiveX 方式。 用 ConnectionPoint 方式，可能比較好辦事。

ASP调用COM ，可能没办法获得COM 的事件通知。普通程序的话，好象可以让COM 做回调事件来主动通知。

引言: ASP调用COM ，可能没办法获得COM 的事件通知。普通程序的话，好象可以让COM 做回调事件来主动通知。

如果可以讓COM接收到數據存放在一指針上，然後再以其它法取得資料，如 在ASP端： <% //定義一指針 Dim vaData On Error Resume Next //傳送資料到COM元件 Call xSocket.SendBytesTo(xAddress,"Hello",0) if xSocket.finished then //接收從COM元件傳回的資料 Call xSocket.ReceiveBytesFrom(xAddress,vaData,1) %> 這種方法可行嗎？

SORRY 重傳 ASP端： //定義一指針 Dim vaData On Error Resume Next //傳送資料到COM元件 Call xSocket.SendBytesTo(xAddress,"Hello",0) if xSocket.finished then //接收從COM元件傳回的資料 Call xSocket.ReceiveBytesFrom(xAddress,vaData,1)

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.