Q&A

  • 문자전송 소스인데요.. 왜 안되는지 좀 알려주세요..
procedure Tbbform.BitBtn1Click(Sender: TObject);

var

DufURL : String;

Number1,Number2,msg :String;

begin



number1:=ResvMan.Text;

number2:=SndMan.Text;



msg:=memo1.Text;



DufURL := 'http://webcenter.chollian.net/cgi-bin/mycappy2.cgi?step=second&number1=' + number1 + '&mesg=' + Msg + '&number2=' + number2 + '&submit_button=%C0%FC%BC%DBc';

NMHTTP1.Get(DufURL);

showmessage('전송완료!!');

memo1.Clear;



end;





TNMHttp컴포넌트를 사용했구요

number1과 number2 그리고 msg부분에 미리 숫자하고 내용을 적어 놓으면 잘되요..

근데 입력을 받게 만들면 이상하게 안되요..



제가 뭘 잘못했을까요.. 고수 님들 조언 부탁 드려요..



2  COMMENTS
  • Profile
    최석기 2000.07.27 02:16
    제가 자료실에 허일학님 자료 밑으로 공백 및 특수 문자 처리 되도록 소스 올려 놓았습니다.



    다 테스트는 않해봐서 잘되나 모르겠네요..



    특수문자나 공백 줄바꿈 처리는 되는거 같아요..



    참고하세요..



    아리엘 wrote:

    > procedure Tbbform.BitBtn1Click(Sender: TObject);

    > var

    > DufURL : String;

    > Number1,Number2,msg :String;

    > begin

    >

    > number1:=ResvMan.Text;

    > number2:=SndMan.Text;

    >

    > msg:=memo1.Text;

    >

    > DufURL := 'http://webcenter.chollian.net/cgi-bin/mycappy2.cgi?step=second&number1=' + number1 + '&mesg=' + Msg + '&number2=' + number2 + '&submit_button=%C0%FC%BC%DBc';

    > NMHTTP1.Get(DufURL);

    > showmessage('전송완료!!');

    > memo1.Clear;

    >

    > end;

    >

    >

    > TNMHttp컴포넌트를 사용했구요

    > number1과 number2 그리고 msg부분에 미리 숫자하고 내용을 적어 놓으면 잘되요..

    > 근데 입력을 받게 만들면 이상하게 안되요..

    >

    > 제가 뭘 잘못했을까요.. 고수 님들 조언 부탁 드려요..

    >

  • Profile
    사바리.. 2000.07.26 23:48
    요건 지가 맹근 소스인디...^^ 참고 하시와여

    요건 잘도라 감다..^^

    number1 := edit1.Text;

    number2 := edit2.Text;

    Msg := memo1.Text;

    DufURL := 'http://webcenter.chollian.net/cgi-bin/mycappy2.cgi?step=second&number1=' + number1 + '&mesg=' + Msg + '&number2=' + number2 + '&submit_button=%C0%FC%BC%DBc';

    try

    NMHTTP1.Get(DufURL);

    edit2.Clear;

    memo1.Clear;

    showmessage('메시지를 전송하였습니다.');

    except

    showmessage('문자전송 실패... 다시 해봐엽');

    end;

    > DufURL : String;

    > Number1,Number2,msg :String;

    > begin

    >

    > number1:=ResvMan.Text;

    > number2:=SndMan.Text;

    >

    > msg:=memo1.Text;

    >

    > DufURL := 'http://webcenter.chollian.net/cgi-bin/mycappy2.cgi?step=second&number1=' + number1 + '&mesg=' + Msg + '&number2=' + number2 + '&submit_button=%C0%FC%BC%DBc';

    > NMHTTP1.Get(DufURL);

    > showmessage('전송완료!!');

    > memo1.Clear;

    >

    > end;

    >

    >

    > TNMHttp컴포넌트를 사용했구요

    > number1과 number2 그리고 msg부분에 미리 숫자하고 내용을 적어 놓으면 잘되요..

    > 근데 입력을 받게 만들면 이상하게 안되요..

    >

    > 제가 뭘 잘못했을까요.. 고수 님들 조언 부탁 드려요..

    >