Q&A

  • indy 10 IdTCPClient 컴포넌트 관련 질문입니다.
indy10컴포넌트를 사용하다가 안되는것이 있어 이렇게 질문을 올립니다.
다름이 아니라...아래처럼 하면 "개체 참조가 개체의 인스턴스로....." 이런 에러가 떨어집니다..
먼가 생성쪽에서 문제가 있는거 같은데...
혹시 컴포넌트를 폼에 올리고 하는거 말고...
코딩으로 컴포넌트 만들고 연결하는 소스있으신분 좀 도와주세여..
아래 허접하지만...테스트 프로그램 만든건데..
좀 도와주세여 ^^

======================================================================
procedure TForm1.Button1Click();
var
  sock : TIdTCPClient;
  msg : string;
begin
  try
    sock := TIdTCPClient.Create ;
    sock.Host := '172.30.84.140';
    sock.Port := 3058;
    sock.Socket.Open;

    if sock.Socket.Connected then
      sock.Disconnect;

    sock.Connect ;

    sock.Socket.Write('00000000181F009' + res_no);
    TextBox1.Text := sock.Socket.ReadLn();
    sock.Destroy;
    sock.Free;
  except on E: Exception do
  begin
   TextBox1.Text := E.Message;
   sock.Destroy;
   sock.Free;
  end;
  end;

end;
1  COMMENTS
  • Profile
    세균맨 2007.02.23 02:31
    procedure TForm1.Button1Click();
    var
      sock : TIdTCPClient;
      msg : string;
    begin
      try
        sock := TIdTCPClient.Create(Application);

        중략.....
         ...................
         .................

    end;