자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi NetHTTPClient1 오류 질문입니다.
2019.10.17 15:18
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
사진과 같이 오류가 뜨는데 어떻게 처리해야하나요?
안드로이드 일기장 만드는중인데
로그인은 잘돼는데 글쓰기도 글은써지는데 저오류가 나옵니다.
답변좀 부탁드립니다 아래는 소스입니다.
주소는 가렸습니다.
post.Add('p_id='+'grenfacebook');
post.Add('x='+'53');
post.Add('y='+'16');
post.Add('p_pw='+'alcls114');
post.Add('mode='+'p_login');
NetHTTPClient1.CustomHeaders['Accept']:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3';
NetHTTPClient1.CustomHeaders['Accept-Encoding']:='gzip, deflate, br';
NetHTTPClient1.CustomHeaders['Accept-Language']:='ko-KR,ko;q=0.9,en-US;q=0.8,en;q=0.7';
NetHTTPClient1.CustomHeaders['User-Agent']:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.120 Safari/537.36';
NetHTTPClient1.CustomHeaders['Content-Type']:='application/x-www-form-urlencoded';
NetHTTPClient1.CustomHeaders['Referer']:='webr';
Memo1.Text:= NetHTTPClient1.Post('https://webr ',Post).ContentAsString();
end;
procedure TForm1.Button2Click(Sender: TObject);
var
post2:TStringList;
begin
post2:=TStringList.Create;
post2.Add('b_id='+'grenfacebook');
post2.Add('b_title='+'test');
post2.Add('b_body='+'test');
post2.Add('x='+'71');
post2.Add('y='+'17');
post2.Add('mode='+'b_save');
try
NetHTTPClient1.CustomHeaders['Accept']:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3';
NetHTTPClient1.CustomHeaders['Accept-Encoding']:='gzip, deflate, br';
NetHTTPClient1.CustomHeaders['Accept-Language']:='ko-KR,ko;q=0.9,en-US;q=0.8,en;q=0.7';
NetHTTPClient1.CustomHeaders['User-Agent']:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.120 Safari/537.36';
NetHTTPClient1.CustomHeaders['Content-Type']:='application/x-www-form-urlencoded';
NetHTTPClient1.CustomHeaders['Referer']:='webr.co.kr/html/sub5_2.php';
Memo1.Text:= NetHTTPClient1.Post('http://webr.co.kr/html/engine.php', post2).ContentAsString();
댓글 2
Delphi NetHTTPClient1 오류 질문입니다.
2019.10.17 15:18
본 게시판은 개발자들이 자유롭게 질문과 답변을 공유하는 게시판입니다.
* 따라서 최대한 정중하게 질문을 올려 주세요.
* 질문을 상세히 작성해 주실 수록 좋은 답변이 올라 옵니다.
* 다른 분들도 참고할 수 있도록 결과 댓글 필수(또는 감사 댓글)
(결과 댓글을 달지 않는 경우 다음 질문에 대한 답변이 달리지 않는 불이익이 있을 수 있습니다.)
-----------------------------------------------------------------------------------------------
사진과 같이 오류가 뜨는데 어떻게 처리해야하나요?
안드로이드 일기장 만드는중인데
로그인은 잘돼는데 글쓰기도 글은써지는데 저오류가 나옵니다.
답변좀 부탁드립니다 아래는 소스입니다.
주소는 가렸습니다.
post.Add('p_id='+'grenfacebook');
post.Add('x='+'53');
post.Add('y='+'16');
post.Add('p_pw='+'alcls114');
post.Add('mode='+'p_login');
NetHTTPClient1.CustomHeaders['Accept']:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3';
NetHTTPClient1.CustomHeaders['Accept-Encoding']:='gzip, deflate, br';
NetHTTPClient1.CustomHeaders['Accept-Language']:='ko-KR,ko;q=0.9,en-US;q=0.8,en;q=0.7';
NetHTTPClient1.CustomHeaders['User-Agent']:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.120 Safari/537.36';
NetHTTPClient1.CustomHeaders['Content-Type']:='application/x-www-form-urlencoded';
NetHTTPClient1.CustomHeaders['Referer']:='webr';
Memo1.Text:= NetHTTPClient1.Post('https://webr ',Post).ContentAsString();
end;
procedure TForm1.Button2Click(Sender: TObject);
var
post2:TStringList;
begin
post2:=TStringList.Create;
post2.Add('b_id='+'grenfacebook');
post2.Add('b_title='+'test');
post2.Add('b_body='+'test');
post2.Add('x='+'71');
post2.Add('y='+'17');
post2.Add('mode='+'b_save');
try
NetHTTPClient1.CustomHeaders['Accept']:='text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3';
NetHTTPClient1.CustomHeaders['Accept-Encoding']:='gzip, deflate, br';
NetHTTPClient1.CustomHeaders['Accept-Language']:='ko-KR,ko;q=0.9,en-US;q=0.8,en;q=0.7';
NetHTTPClient1.CustomHeaders['User-Agent']:='Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.120 Safari/537.36';
NetHTTPClient1.CustomHeaders['Content-Type']:='application/x-www-form-urlencoded';
NetHTTPClient1.CustomHeaders['Referer']:='webr.co.kr/html/sub5_2.php';
Memo1.Text:= NetHTTPClient1.Post('http://webr.co.kr/html/engine.php', post2).ContentAsString();
Memo1.Text:= NetHTTPClient1.Post('https://webr ',Post).ContentAsString();
Post에 파라메터를 추가해보세요.
Memo1.Text:= NetHTTPClient1.Post('https://webr ',Post, nil, TEncoding.UTF8).ContentAsString();