procedure TForm1.Button1Click(Sender: TObject);
var
Data : TStringStream;
Response : TStringStream;
begin
Data := TStringStream.create('\');
Response := TStringStream.create('\');
IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
Data.WriteString(URLEncode('id=test'));
Data.WriteString(URLEncode('&pwd=1111'));
try
try
IdHTTP.Post('http://192.168.1.1/login.php',Data,Response);
mmLog.Lines.Add(Response.DataString);
except on E: Exception do
mmLog.Lines.Add(e.Message);
end;
finally
Response.Free;
Data.Free;
end;
end;
post방식으로 파라메터를 넘기는 예제인데요,
값을 넘겨서 넘어온 값이 적용된 브라우져 화면을 띄워야 되는데
어떻게 띄우죠?
리턴값은 잘 받아 오네요,,
오늘 꼭 해결해야 되는데 부탁드립니다.