Fórum Consumir um WebService (Asp.NET) em Delphi (Rad Studio 2007) #365347

function TWebService1.LoadUsers : DataSet;
var
 conn : SqlConnection;
 cmd : SqlCommand;
 da : SqlDataAdapter;
 ds : DataSet;
begin
  conn := SqlConnection.Create;
  cmd := SqlCommand.Create;
  da := SqlDataAdapter.Create;
  ds := DataSet.Create;
  conn.ConnectionString := ´user id=FULANO;data source="192.168.254.1";persist security info=True;initial catalog=TABELA;password=123456´;
  cmd.Connection := conn;
  cmd.CommandText := ´SELECT nome FROM usuarios´;
  da.SelectCommand := cmd;
  da.Fill(ds);
  conn.Dispose();
  cmd.Dispose();
  da.Dispose();
  Result := ds;
end;