SIGNORI
Membros-
Total de itens
8 -
Registro em
-
Última visita
Sobre SIGNORI
- Data de Nascimento 21/11/1988
Perfil
-
Gender
Male
-
Location
Três de Maio - RS
SIGNORI's Achievements
0
Reputação
-
Boa tarde, estou com um problema aqui no consumo de um Web Service. Importei com o WSDLImporter e ele me gerou a classe. A estrutura de envio deste WS é assim: <cabecalho> <tag1></tag1> <tag2></tag2> </cabecalho> <Dados> <DadosItem> <tag1></tag1> </DadosItem> <DadosItem> <tag1></tag1> </DadosItem> [...] </Dados> Bem, então o grupo Dados é um array. Assim o Delphi gerou a classe, só não sei como inicializar esse array para preenche-lo. Pois esse array é uma propriedade da classe "envio", e toda vez que tento atribuir um valor dá "acces violation". Se tento dar um SetLength, ocorre erro. A parte da classe deste array está assim: Recep = class(TRemotable) private FCabecalho: Recepcao_Cabecalho; FInformacoes: Recepcao_Informacoes; FDados: Dados; public destructor Destroy; override; property Dados: Dados read FDados write FDados; published property Cabecalho: Recepcao_Cabecalho read FCabecalho write FCabecalho; property Informacoes: Recepcao_Informacoes read FInformacoes write FInformacoes; end; Dados = array of Recepcao_DadosItem; Na minha Unit, tenho assim: env.Dados[0] := dadositem; //env é o objeto da classe Recep //dadositem é o objeto da classe Recepcao_DadosItem Nesse momento ocorre o erro de acces violation, como inicializo esse array? :blink: Obrigado
- 1 resposta
-
- Web Service
- Array
-
(e %d mais)
Tags:
-
Resolvido o problema, estava matando minha variável que retornava os dados no final... De qualquer forma obrigado Daniel, vou guardar teu código!
-
Obrigado pela resposta, bem interessante seu método, será minha alternativa caso não consiga resolver meu problema... Estou usando Oracle 10g Express, se algué puder ajudar, agradeço.
-
Olá amigos, estou fazendo um trabalho orientado a objeto para a faculdade, sempre programei um Delphi usando DbExpress, só que neste projeto estou Usando ADO. Tenho o seguinte problema, não estou conseguindo preencher o DBGRid com dados vindos de uma consulta do BD, segue o código da consulta: function TuClassClientes.Consultar(Condicao: string): TDataSource; var Qry: TADOQuery; ds: TDataSource; begin try Qry := TADOQuery.Create(nil); ds := TDataSource.Create(nil); try if Condicao <> '' then Condicao := 'where('+Condicao+')'; with Qry do begin Connection := TuClassConexao.ObtemConexao; Close; SQL.Text := 'select CLIENTES.ID_CLIENTE, CLIENTES.NOME, CLIENTES.DATA_NASC '+ 'from CLIENTES'; Open; end; ds.DataSet := Qry; Result := ds; finally ds.Free; Qry.Free; end; except on E: Exception do raise Exception.Create('Ops! Ocorreu um erro na consulta: '+e.Message); end; end; Se executar a SQL direto no BD retorna os registros.. no forma chamo da seguinte maneira; procedure TForm1.Button5Click(Sender: TObject); var CLIENTE: TuClassClientes; begin CLIENTE := TuClassClientes.Create; try DBGrid1.DataSource := CLIENTE.Consultar(''); finally CLIENTE.Free; end; end; Oque está errado? Obrigado!
-
Olá Amigos. Estou tentando implantar um controle de versão de arquivos na minha empresa, já fiz testes com o SVN, porém não me agradou. Em outra oportunidade já trabalhei com CVS, porém com servidor instalado no Linux e clientes Windows. Já aqui, necessido um servidor CVS que rode no Windows Server 2003. Pesquisei e encontrei um servidor CVS para Windows, o CVSNT, porém não consigo configurá-lo. Alguém já trabalhou com o CVSNT e pode me dar uma ajuda de como configurar o servidor?? Fico muito grato!
-
Obrigado kara! Descobri meu erro! Valeu mesmo!
-
ESse é o erro que da: consulta SQL: /* Created 18/2/2007 Modified 18/2/2007 Project Model Company Author Version Database mySQL 5 */ DROP TABLE IF EXISTS funcoes; Mensagens do MySQL : #1046 - No database selected Gostei do Tetra mundial Sou só campeão...
-
Olá! Sou novo no fórum e iniciante em PHP. Configurei todos os arquivos do apache, php e MYsql. Tenho o XAMP instalado. Tenho um banco criado mas não consigo importa-lo pelo Myadmim. da um erro. Alguém tem alguma sugestão???