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;
var
sock : TIdTCPClient;
msg : string;
begin
try
sock := TIdTCPClient.Create(Application);
중략.....
...................
.................
end;