Delphi 模拟 post和get 发送数据

Question

原理是这样的，我需要自定义三个函数第1个是 把字符转换成 unicode的
  例子：测试信息 -> 6D488BD54FE1606F第2个是 通过get的方式发送数据（有返回值）
  参数：
  url -> http://www.baidu.com/?name=wuyao&pwd=123456第三个 是通过post的方式发送数据（有返回值）
  参数：
  url -> http://www.baidu.com
  data -> name=wuyao&pwd=123456可有偿帮我写，我真的很需要，，，，
（我很穷，只能出100块钱）

Answer 1

DELPHI根据URL获取IP，如何利用ClientSocket模拟GET HTTP网站?麻烦帮写2个函数：getIPByURL(URL：ShortString)：ShortString,SendHttpWithGet()；