귀하는 손님 이십니다
로그인
회원가입
  
  델마당 공식 은행계좌
  하나은행 227-910235-83607
  예금주 이상국(운영진)
프로젝트 게시판
투표게시판
델마당소개
기초부터 활용까지! 델파이 교육 - 데브기어
 광고문의 :
질문과 답변 질문과 답변 입니다.
글내용 - 질문과 답변
 [질문] Winhttp 특정 문자열 찾기 질문
구로미
(민재)
2019-07-11 오후 2:35:20
95회 조회


등록된 파일이 없습니다.

1. 개발/실행 플랫폼

(1) OS : Windows 10

(2) 개발툴 : Delphi 10.1 Berlin

(3) 사용 Database :

2. 개발 중인 프로그램 : Winhttp를 통한 특정 문자열 찾기 프로그램

3. 질문 내용

 

안녕하세요. 델마당 회원님들. 다름이 아니라 제가 구글링도 해봐도 도저히 답이 안나와서 여쭤봅니다.

호스팅에 Check.txt라는 파일을 두고 Check.txt의 내용에는

 

abcdefghijk

abcdagdgh

 

이렇게 적혀 있다면 Edit1.text에 abcdefghijk를 입력하고 Button1을 눌렀을시 Winhttp를 이용하여 호스팅에 있는 Check.txt 파일 속 문자와 정확히 일치하면 성공 아니면 실패가 뜨게 하고싶은데요.

 

procedure TForm1.Button1Click(Sender: TObject);
var
Winhttp:IWinHttpRequest;
begin
Winhttp := coWinHttpRequest.Create;
Winhttp.Open('GET','http://127.0.0.1/Check.txt', false);
Winhttp.send('');
if AnsiPos(Edit1.Text, Winhttp.ResponseText) = 0 Then Begin
ShowMessage('성공');
end
else
ShowMessage('실패');
end;

 

이렇게 짜봤는데도 안되서 CompareStr, CompareText, AnsiCompareStr, AnsiCompareText 를 이용해봤는데도 안되네요.. 도움 부탁드립니다.