Microsoft Visual Studio 2008について調べてみました。
出会い高知案内
出会い宮崎
出会い宮古
出会い岐阜
アルバイト短期募集
出会い群馬
厚木出合い
四日市出会い
過払い法律事務所
豊岡出会い
Visual Studio 2008 TCP通信現在、Visual Studio 2008 のVBで、通信のサンプルプログラムを作成しております。TCP通信のClientでサーバー側にデータを送りたいと思っています。サーバー側のプログラムは、Delphiで作成したアプリケーションです。今回初めてVBを使っていて、まだ理解できていないのですが、DelphiのときはIndyという通信コンポーネントがあり、そちらを利用していたのですがVBには同じような通信コンポーネントがないでしょうか・・・コンポーネントを使わない例もhttp://msdn.microsoft.com/ja-jp/library/system.net.sockets.tcpclient.getstream(VS.71).aspxにあるのですが、どのサイトや本でもこれとほぼ同じ例だけであまり詳しく載っていませんでした。ちなみにDelphiのほうは、コマンドヘッダーのあとに構造体でコンピュータ名とログオンユーザー名のデータが受けるものになっています。(同じセッション内)(Delphiの構造体) TSck_FLogOnRec = packed record CompName : string[64]; // コンピュータ名 LogOnName: string[20]; // ログオンユーザ名 end;procedure TForm1.IdTCPServer1Execute(AContext: TIdContext);var CmdHeader: string;begin try CmdHeader := AContext.Connection.IOHandler.ReadLn; //1.ログオン通信受信 if CmdHeader = 'SREQ_LOGON' then TCPServerCmdLogOnCommand(AContext) finally end;end;procedure TForm1.TCPServerCmdLogOnCommand(ASender: TIdContext);var Buf: TSck_FLogOnRec; tmpBytes: TIdBytes;begin try try //バッファに読込み ASender.Connection.IOHandler.ReadBytes(tmpBytes, SizeOf(Buf)); IdGlobal.BytesToRaw(tmpBytes, Buf, SizeOf(Buf)); //学生ログオン情報をログに残す Memo1.Lines.Add('(TCP)' + BUF.LogOnName + '/' + BUF.CompName); except on F:Exception do Memo1.Lines.Add('TCPServerCmdLogOnCommand-NG:' + F.Message); end; finally end;end;------------------------------------------------------------------マイクロソフトの例を試すと、コマンドヘッダーは送信できていたのですが、その後がどのようにしていいのかがいまいちよくわかりません。参考になる情報があればご教授お願いいたします。
出会い高知案内
出会い宮崎
出会い宮古
出会い岐阜
アルバイト短期募集
出会い群馬
厚木出合い
四日市出会い
過払い法律事務所
豊岡出会い
PR
この記事にコメントする