귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
吏덈Ц怨 떟蹂 吏덈Ц怨 떟蹂 입니다.
글내용 - 吏덈Ц怨 떟蹂
 [吏덈Ц] 濡쒓렇씤 냼뒪 吏덈Ц
linalina
(由щ굹)
2019-02-02 삤쟾 9:58:05
166회 조회


등록된 파일이 없습니다.
1. 媛쒕컻/떎뻾 뵆옯뤌 
  (1) OS : 쐢10
  (2) 媛쒕컻댋 : 
  (3) 궗슜 Database : ftp 떣솃

2. 媛쒕컻 以묒씤 봽濡쒓렇옩
濡쒓렇씤 냼뒪 

3. 吏덈Ц 궡슜 
젣媛 濡쒓렇씤 냼뒪瑜 吏쒓퀬엳뒗뜲 臾몄젣媛 엳뒿땲떎..濡쒓렇씤 李쎌뿉꽌 x瑜쇰늻瑜대㈃ 떎쓬뤌쑝濡 꽆뼱媛吏묐땲떎...
삉븳 濡쒓렇씤쓣 븯硫 떎쓬뤌쑝濡 꽆뼱媛빞릺뒗뜲 븞꽆뼱媛吏묐땲떎.. 븘옒 냼뒪 궓寃⑤넃쓣뀒땲 삁젣醫 二쇱떆硫
젙留먯젙留먮줈 媛먯궗븯寃좎뒿땲떎!!

procedure TLoginForm.Button1Click(Sender: TObject);

var
  WinHttp, WinHttp1: IWinHttpRequest;
  WinhttpDate : String;
  Orignal_Time, MD5_Time : String;

begin

begin
  WinHttp := coWinHttpRequest.Create;
  WinHttp1 := coWinHttpRequest.Create;
    try

     Orignal_Time := FormatDateTime('YYYY-MM-DD-HH-MM', Now);
     MD5_Time := MD5Str(Orignal_Time);

     WinHttp := coWinHttpRequest.Create;
     WinHttp.Open('GET', '떣솃' + Edit1.Text + '&pw=' + Edit2.Text + '&value=' + MD5_Time, False);
     WinHttp.SEND(EmptyParam);
        IF WinHttp.ResponseText = '100' THEN BEGIN
        ShowMessage('젙긽쟻쑝濡 濡쒓렇씤릺뿀뒿땲떎.');
        Timer1.Enabled := false;
        label1.Caption := 'A';
        LoginForm.Hide;
        MainFrm.ShowModal;
        if ChkProxy then
        Application.Terminate
        else
        END ELSE BEGIN
        ShowMessage('怨꾩젙 삉뒗 鍮꾨踰덊샇瑜 솗씤븯뿬 二쇱떆湲곕컮엻땲떎.')
       END;
    except
  END;
end;