벌써 3번째 질문인데
왜 아무두 대답이 없는지...눈물 남다...
지금의 상황은여..
Sun에서 작성된 script를 돌리면
어떤 정보가 나옵니다...
현재는 Telnet으로 접속해서 Script 돌리구
그럼 결과를 눈으로 보구 있어여...
근데 그걸 지금 델파이로 개발하는 프로그램으루
보여줘야 해여...
이걸 어케 해야할지 방법두 몰르겠어여...
소켓식으루 하믄 될거 같기두 한데...
소켓으루 하게되믄 Sun에 서버소켓을 올려야 하자나여...
전 단지 결과를 보여주기만 하믄되는데..
Telnet처럼 서버측 소켓이 없이
그냥 보여줄수 있는 방법은 없나여...
혹시 예제나 비슷한 소스있으면 좀 주세여....
아니면 대충 로직이라두여...
제발여~~~~~~
Demointernetrexec 에 있습니다.
거기 프로그램을 수정하시는것이...(3part컴퍼넌트를 설치를 안하고
기본 컴퍼넌트를 가지고 하는 것 입니다)
컴퍼넌트는 TcpClient 이고요..
모니터링 창은 memo를 이용
procedure TForm1.Button1Click(Sender: TObject);
begin
if NOT Client.Connected then
begin
ConnectLight.Brush.Color:= clGreen; //shape: 접속여부 확인
ConnectLight.Repaint;
Client.RemoteHost:= EditServer.Text;
Client.Active := true;
Client.connect;
end;
end;
procedure TForm1.clientConnect(sender: TObject);
var
outln : String;
begin
client.Sendln('0',#0);
client.Sendln(EditUser.Text,#0);
client.Sendln(EditPass.Text,#0);
client.Sendln(editCommand.Text,#0);
while client.WaitForData(10000) do
begin
outln := Client.Receiveln(#10);
memo1.lines.add(outln);
end;
Client.Close;
ConnectLight.Brush.Color:= clRed;
end
procedure TForm1.clientError(sender: TObject; SocketError: Integer);
begin
memo1.lines.Add('Socket Error # ' + IntToStr(SocketError));
ConnectLight.Brush.Color:= clRed;
end;
clientConnect와 clientErrors는 TcpClient의 OnConnect 과 OnError로 연결