Socket通信の書き換え(pythonより) (ID:149866)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

take様、アドバイスありがとうございます。

教えて頂いたサイトや、その他サイトを参考に、コーディングしてみましたが、
send,recvの部分がどうすれば良いか、わかりませんでした。

引き続き、ご支援よろしくお願いします。
----------------------------------------------------------------------------------
uses    Winsock;
----------------------------------------------------------------------------------
var
  WsData: WSAData;
  MySock: TSocket;
  MyAddr: TSockAddr;
  RecBuf: String;
  intSockStatus : Integer;

begin
  Memo1.Lines.Clear;

if WSAStartup($101, WsData)<>0 then
  begin
    Memo1.Lines.Add('Winsock Error.');
    Exit;
  end;

MySock := socket(AF_INET, SOCK_STREAM, 0);
  if intSockStatus = INVALID_SOCKET then
    Memo1.Lines.Add('Invalid socket.');

MyAddr.sin_family := AF_INET;
  MyAddr.sin_port := htons(57172);
  MyAddr.sin_addr.S_addr := inet_addr('192.168.111.52');
  intSockStatus := connect(MySock,MyAddr,SizeOf(MyAddr));
  if intSockStatus <> 0 then
    Memo1.Lines.Add('Connect Error');

intSockStatus := send(MySock,'AB0116520b000133000400000000003800',Length('AB0116520b000133000400000000003800'),0);
  if intSockStatus <> 0 then
    Memo1.Lines.Add('Send Error');

intSockStatus := recv(MySock,RecBuf,100,0);
  if intSockStatus <> 0 then
    Memo1.Lines.Add('Recv Error')
  else
    Memo1.Lines.Add(RecBuf);

WSACleanup;
----------------------------------------------------------------------------------

←解決時は質問者本人がここをチェックしてください。

戻る