Ir para conteúdo
Fórum Script Brasil

kartter

Membros
  • Total de itens

    186
  • Registro em

  • Última visita

Tudo que kartter postou

  1. Bom, é como eu disse acima. Eu que estou fazendo o WebService. Se fizer um Webservice no Delphi, você cria as classes e ele cria o WSDL para publicação. Disse também que até mesmo o exemplo que o próprio delphi monta, não gera o wsdl corretamente. Não é possível ou pelo menos em nenhuma documentação embarcadero demonstra como colocar limites, conforme coloquei acima. Quando falo que ele não gera corretamente, é porque qualquer ferramenta que faz uso de um WSDL nativamente (SAP/SOAP), não conseguem interpretar o WSDL gerado pelo delphi, justamente pelo fato de não ser possível colocar limites (minOccurs="0" maxOccurs="1"), bem como a maneira como ele representa array.
  2. Não tem nada a ver a maneira como estou enviando os dados Jhonas. A construção do webservice que não está correta. Vou mudar a pergunta. Tem idéia de como criar um webservice, onde um nodo possua limite? Acredito que isto resolva o problema. Exemplo: (minOccurs="0" maxOccurs="1") <xs:sequence> <xs:element name="Code" type="xs:int"> </xs:element> <xs:element name="Value" type="xs:string" minOccurs="0" maxOccurs="1"> </xs:element> <xs:element name="ped" type="tns:array_filho"> </xs:element> </xs:sequence>
  3. O codigo que passou é a importação do WSDL que foi gerado incorreto. O problema está no WSDL publicado. Se criar um SOAP SERVER APPLICATION no Delphi, utilizando os métodos de exemplo que são inseridos, e mandar publicar, verá que até o exemplo gera um WSDL incorreto.
  4. Boa noite, As diferenças são apenas no tipo. No Delphij 10.3 gerou os tipos como STRING. No seu exemplo gerou como WIDESTRING. Outra diferença se refere ao destroy. No restante é tudo igual destructor TPedido.Destroy; begin System.SysUtils.FreeAndNil(FData); System.SysUtils.FreeAndNil(Fitem); inherited Destroy; end; destructor TFinal.Destroy; var I: Integer; begin for I := 0 to System.Length(Fx)-1 do System.SysUtils.FreeAndNil(Fx[I]); System.SetLength(Fx, 0); inherited Destroy; end;
  5. Segue endereço do WSDL http://35.247.246.18/wslh/ScriptBrasil.dll/wsdl/IiTeste Gerei o WSDL na versão Rio/Tokyo/Delphi 7. Todas geraram da mesma maneira. Obrigado
  6. Bom dia @Jhonas Coloquei o codigo fonte e o wsdl no link: encurtador.com.br/fptx5 E um exemplo bem basico de um webservice. Veja no print abaixo, como o wsdl montado pelo delphi não tem nada a ver com a realidade. um nodo filho é montado de forma totalmente incorreta. A classe pedido tem dois campos: Código e Data A classe item tem dois campos: Nome e Filial Obrigado! Jean
  7. Ei @Jhonas, bom dia, O problema não está no soapui e sim no wsdl gerado pelo delphi. Veja este exemplo de WSDL gerado por outra ferramenta. <xsd:element name="Deliveries" maxOccurs="unbounded"> <xsd:complexType> <xsd:sequence> <xsd:element name="Delivery" type="xsd:string"/> <xsd:element name="Country" type="xsd:string" minOccurs="0"/> <xsd:element name="Items" maxOccurs="unbounded"> <xsd:complexType> <xsd:sequence> <xsd:element name="Item" type="xsd:string"/> <xsd:element name="Material" type="xsd:string"/> </xsd:sequence> </xsd:complexType> </xsd:element> <xsd:element name="Partners" type="PartnersModel" minOccurs="0" maxOccurs="unbounded"/> </xsd:sequence> </xsd:complexType> </xsd:element> Se gerar no Delphi, o WSDL é gerado da seguinte maneira: <sequence xmlns="http://www.w3.org/2001/XMLSchema"> <xs:element name="Delivery" type="xs:string"/> <xs:element name="Country" type="xs:string"/> <xs:element name="Items" type="ns1:Array_Of_Items"/> <xs:element name="Partners" type="ns1:Array_Of_PartnersModel"/> </sequence> Por este motivo dá erro no SOAPUI e em qualquer ferramenta que mapeie os campos de maneira padrão, como por exemplo no SAP. Obrigado pela ajuda! Jean
  8. Boa noite, Estou fazendo um WebService em Delphi 10.3. Fiz e consegui importá-lo sem problemas. Quando mandei para o meu cliente, ele me informou que importou o WSDL no SOAPUI e a estrutura complexa não foi carregada. Realmente estas estruturas complexas não são carregadas no SOAP UI quando faço um WebService em Delphi. Porém se recebo um WSDL escrito em outra linguagem, estas estruturas são carregadas. Coloquei somente o básico da interface que fiz para que vocês possam me auxiliar. unit UInterfaceDelivery; interface uses Soap.InvokeRegistry,Soap.XSBuiltIns; Type Item = class(TRemotable) private FNome:string; published property nome: string read FNome write FNome; end; Array_Of_Items = array of Item; Deliveries = class(TRemotable) private FDelivery : string; FItems : Array_Of_Items; published property Delivery: string read FDelivery write FDelivery; property Items: Array_Of_Items read FItems write FItems; end; ContDeliveryModel = Deliveries; ContDeliveryModelRequest = type ContDeliveryModel; ContDeliveryModel_In_Sync_it = interface(IInvokable) ['{5EAA2E15-891D-4BA4-BEDD-BF2AEFEB11BF}'] function ContDeliveryModel_In_Sync(const ContDeliveryModelRequest: ContDeliveryModelRequest): boolean; stdcall; end; implementation initialization InvRegistry.RegisterInterface(TypeInfo(ContDeliveryModel_In_Sync_it)); end. Veja que a propriedade Items é um array da Classe Item Quando importo o WSDL abaixo no SOAP ele monta a estrutura conforme o segundo quadro <?xml version="1.0"?> <definitions xmlns="http://schemas.xmlsoap.org/wsdl/" xmlns:xs="http://www.w3.org/2001/XMLSchema" name="ContDeliveryModel_In_Sync_itservice" targetNamespace="http://tempuri.org/" xmlns:tns="http://tempuri.org/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:mime="http://schemas.xmlsoap.org/wsdl/mime/" xmlns:ns1="urn:UInterfaceDelivery"> <types> <xs:schema targetNamespace="urn:UInterfaceDelivery" xmlns="urn:UInterfaceDelivery"> <xs:complexType name="ContDeliveryModelRequest"> <sequence xmlns="http://www.w3.org/2001/XMLSchema"> <xs:element name="Delivery" type="xs:string"/> <xs:element name="Items" type="ns1:Array_Of_Items"/> </sequence> </xs:complexType> <xs:complexType name="Array_Of_Items"> <xs:complexContent> <xs:restriction base="soapenc:Array"> <sequence xmlns="http://www.w3.org/2001/XMLSchema"/> <xs:attribute ref="soapenc:arrayType" n1:arrayType="ns1:Item[]" xmlns:n1="http://schemas.xmlsoap.org/wsdl/"/> </xs:restriction> </xs:complexContent> </xs:complexType> <xs:complexType name="Item"> <sequence xmlns="http://www.w3.org/2001/XMLSchema"> <xs:element name="nome" type="xs:string"/> </sequence> </xs:complexType> </xs:schema> </types> <message name="ContDeliveryModel_In_Sync0Request"> <part name="ContDeliveryModelRequest" type="ns1:ContDeliveryModelRequest"/> </message> <message name="ContDeliveryModel_In_Sync0Response"> <part name="return" type="xs:boolean"/> </message> <portType name="ContDeliveryModel_In_Sync_it"> <operation name="ContDeliveryModel_In_Sync"> <input message="tns:ContDeliveryModel_In_Sync0Request"/> <output message="tns:ContDeliveryModel_In_Sync0Response"/> </operation> </portType> <binding name="ContDeliveryModel_In_Sync_itbinding" type="tns:ContDeliveryModel_In_Sync_it"> <binding xmlns="http://schemas.xmlsoap.org/wsdl/soap/" style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/> <operation name="ContDeliveryModel_In_Sync"> <operation xmlns="http://schemas.xmlsoap.org/wsdl/soap/" soapAction="urn:UInterfaceDelivery-ContDeliveryModel_In_Sync_it#ContDeliveryModel_In_Sync" style="rpc"/> <input> <body xmlns="http://schemas.xmlsoap.org/wsdl/soap/" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:UInterfaceDelivery-ContDeliveryModel_In_Sync_it"/> </input> <output> <body xmlns="http://schemas.xmlsoap.org/wsdl/soap/" use="encoded" encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="urn:UInterfaceDelivery-ContDeliveryModel_In_Sync_it"/> </output> </operation> </binding> <service name="ContDeliveryModel_In_Sync_itservice"> <port name="ContDeliveryModel_In_Sync_itPort" binding="tns:ContDeliveryModel_In_Sync_itbinding"> <address xmlns="http://schemas.xmlsoap.org/wsdl/soap/" location="http://localhost/wsdl_lh/ServerLH.dll/soap/ContDeliveryModel_In_Sync_it"/> </port> </service> </definitions> Como a estrutura é montada no SOAP UI <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:UInterfaceDelivery-ContDeliveryModel_In_Sync_it" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"> <soapenv:Header/> <soapenv:Body> <urn:ContDeliveryModel_In_Sync soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> <ContDeliveryModelRequest xsi:type="urn:ContDeliveryModelRequest" xmlns:urn="urn:UInterfaceDelivery"> <Delivery xsi:type="xsd:string">?</Delivery> <Items xsi:type="urn:Array_Of_Items" soapenc:arrayType="urn:Item[]"/> </ContDeliveryModelRequest> </urn:ContDeliveryModel_In_Sync> </soapenv:Body> </soapenv:Envelope> Então meu cliente indagou que a estrutura ITEM não foi carrega. Como faço para o SOAP UI importar este WSDL conforme abaixo, sabendo que o ITEM é um array?: <soapenv:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:urn="urn:UInterfaceDelivery-ContDeliveryModel_In_Sync_it" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/"> <soapenv:Header/> <soapenv:Body> <urn:ContDeliveryModel_In_Sync soapenv:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/"> <ContDeliveryModelRequest xsi:type="urn:ContDeliveryModelRequest" xmlns:urn="urn:UInterfaceDelivery"> <Delivery xsi:type="xsd:string">?</Delivery> <Items xsi:type="urn:Items"> <nome xsi:type="xsd:string">?</nome> </Items> </ContDeliveryModelRequest> </urn:ContDeliveryModel_In_Sync> </soapenv:Body> </soapenv:Envelope> Obrigado pelo auxílio! Jean Carlos
  9. kartter

    openALPR

    Bom dia, Tem como eu executar o arquivo em anexo no windows? no cmd, digito train.py e recebo de retorno os comandos linus não reconhecidos no windows. 'rm' não é reconhecido como um comando interno ou externo, um programa operável ou um arquivo em lotes. Processing: ./br/input\lbr.brazil.exp0.box Executing: c: esseract/tesseract -l eng ./br/input/lbr.brazil.exp0.tif lbr.brazil.exp0 nobatch box.train.stderr 'mv' não é reconhecido como um comando interno ou externo, um programa operável ou um arquivo em lotes. 'mv' não é reconhecido como um comando interno O código do arquivo segue abaixo #!/usr/bin/python import os import glob import sys #TESSERACT_DIR='/storage/projects/alpr/libraries/tesseract-ocr' TESSERACT_DIR = 'c:\tesseract' os.environ["TESSDATA_PREFIX"] = TESSERACT_DIR #os.system("export TESSDATA_PREFIX=" + TESSERACT_DIR) TESSERACT_BIN=TESSERACT_DIR + '/tesseract' TESSERACT_TRAINDIR= TESSERACT_DIR + '/training' country = input("Two-Letter Country Code to Train: ").lower() LANGUAGE_NAME='l' + country box_files = glob.glob('./' + country + '/input/*.box') if not box_files: print ("Cannot find input files") sys.exit(1) os.system("rm ./tmp/*") #os.system("del ./tmp/*") font_properties_file = open('./tmp/font_properties','w') for box_file in box_files: print ("Processing: " + box_file) file_without_dir = os.path.split(box_file)[1] file_without_ext = os.path.splitext(file_without_dir)[0] input_dir = os.path.dirname(box_file) tif_file = input_dir + '/' + file_without_ext + ".tif" train_cmd = "%s -l eng %s %s nobatch box.train.stderr" % (TESSERACT_BIN, tif_file, file_without_ext) print ("Executing: " + train_cmd) os.system(train_cmd) os.system("mv ./" + file_without_ext + ".tr ./tmp/" + file_without_ext + ".tr") os.system("mv ./" + file_without_ext + ".txt ./tmp/" + file_without_ext + ".txt") font_name=file_without_dir.split('.')[1] font_properties_file.write(font_name + ' 0 0 1 0 0\n') font_properties_file.close() os.system(TESSERACT_TRAINDIR + "/unicharset_extractor ./" + country + "/input/*.box") #os.system('mv ./unicharset ./" + country + "/input/" + LANGUAGE_NAME + ".unicharset') # Shape clustering should currently only be used for the "indic" languages #train_cmd = TESSERACT_TRAINDIR + '/shapeclustering -F ./' + country + '/input/font_properties -U unicharset ./' + country + '/input/*.tr' #print "Executing: " + train_cmd #os.system(train_cmd) train_cmd = TESSERACT_TRAINDIR + '/mftraining -F ./tmp/font_properties -U unicharset -O ./tmp/' + LANGUAGE_NAME + '.unicharset ./tmp/*.tr' print ("Executing: " + train_cmd) os.system(train_cmd) os.system("rm ./unicharset") os.system("mv ./tmp/" + LANGUAGE_NAME + ".unicharset ./") os.system("cp ./" + country + "/input/unicharambigs ./" + LANGUAGE_NAME + ".unicharambigs") os.system(TESSERACT_TRAINDIR + '/cntraining ./tmp/*.tr') #os.system("mv ./unicharset ./" + LANGUAGE_NAME + ".unicharset") os.system("mv ./shapetable ./" + LANGUAGE_NAME + ".shapetable") #os.system("rm ./shapetable") os.system("mv ./pffmtable ./" + LANGUAGE_NAME + ".pffmtable") os.system("mv ./inttemp ./" + LANGUAGE_NAME + ".inttemp") os.system("mv ./normproto ./" + LANGUAGE_NAME + ".normproto") os.system(TESSERACT_TRAINDIR + '/combine_tessdata ' + LANGUAGE_NAME + '.') # If a config file is in the country's directory, use that. config_file = os.path.join('./', country, country + '.config') if os.path.isfile(config_file): print ("Applying config file: " + config_file) trainedata_file = LANGUAGE_NAME + '.traineddata' os.system(TESSERACT_TRAINDIR + '/combine_tessdata -o ' + trainedata_file + ' ' + config_file ) os.system("mv ./" + LANGUAGE_NAME + ".unicharset ./tmp/") os.system("mv ./" + LANGUAGE_NAME + ".shapetable ./tmp/") os.system("mv ./" + LANGUAGE_NAME + ".pffmtable ./tmp/") os.system("mv ./" + LANGUAGE_NAME + ".inttemp ./tmp/") os.system("mv ./" + LANGUAGE_NAME + ".normproto ./tmp/") os.system("mv ./" + LANGUAGE_NAME + ".unicharambigs ./tmp/")
  10. Boa noite Pessoal, Estou com um painel de LED da empresa SPIDER para configurar mensagens nele. Estou conectando nele atraves do componente TCPCLIENT (paleta indy). No manual diz que: A programação do painel é formada por um conjunto de quadros de comunicação. O quadro de comunicação é formado pela seguinte string de caracteres: só STX DEST CMD NCHAR Bloco de Caracteres ETX BCC" só (01h) - Inicializa a comunicação. STX (02h) - Início de texto. DEST - Identifica qual painel receberá o quadro de comunicação (de 01h à 20h) . CMD - Comando que o painel deverá executar (82h ou 83h) NCHAR - Caracter que informa qual a quantidade de bytes contidos no Bloco de Caracteres. (Incluir os bytes relativos às funções de tela, mudança de cor, gráficos, mudança de caracter e qualquer outro contido neste bloco). OBS.:Número de caracteres não pode ser superior a 240. ETX (03h) - Caracter de fim de texto. BCC - Caracter de check: BCC é inicializado com zero e calcula-se a partir do caracter STX, inclusive, até o caracter ETX, inclusive, efetuando uma operação de XOR com shift-left. Sempre que transmitido um quadro de comunicação, o painel responderá ao dispositivo se entendeu ou não a mensagem, da seguinte forma: ACK (06) = mensagem recebida corretamente. NAK (15) = mensagem não recebida. Caso a resposta à transmissão de um quadro tenha sido NAK, o programa deverá retransmiti-lo. Como monto esta string no delphi?
  11. Bom dia, Estou tentando ler o rss http://pox.globo.com/rss/g1/natureza/ Ele tem a TAG CDATA. Então quando quero ler o conteúdo desta TAG utilizo: ANodeImg :=ANode.ChildNodes['description']; ANodeImg :=ANodeImg.ChildNodes.FindNode('#cdata-section'); Só que a própria TAG description possui um conteúdo após o CDATA. <description> <![CDATA[ <img src="https://s2.glbimg.com/ANbwrwKUUSZJ1OMBmHLpBYBIfpU=/i.s3.glbimg.com/v1/AUTH_59edd422c0c84a879bd37670ae4f538a/internal_photos/bs/2017/7/F/USf33yQTG7JZX2fekUsg/temer1.jpg" /><br /> ]]> País escandinavo, que destinou R$ 2,8 bilhões entre 2009 e 2016 ao Brasil, manifestou insatisfação com recente alta do desmatamento e ameaça reduzir ou suspender contribuições. </description> Como faço para ler o texto: "País escandinavo, que destino...." Se eu fizer o comando abaixo retorna erro. ANode.ChildNodes['description'].text Se não possui o CDATA na TAG Description, o comando acima funciona sem problemas, porém com a TAG CDATA não consigo ler. Alguém sabe como resolver isto?
  12. kartter

    cxGrid

    Boa noite, Utilizo o cxGrid da DevExpress. Este componente tem uma propriedade de sumary onde é possível mostrar o total de registros e o total de registros por grupo. O que preciso é que seja mostrado o total de grupos, e não consegui ainda. Exemplo: Funcionario 01 REGISTRO 01 DO FUNCIONARIO 01 REGISTRO 02 DO FUNCIONARIO 01 REGISTRO 03 DO FUNCIONARIO 01 Funcionario 02 REGISTRO 01 DO FUNCIONARIO 02 REGISTRO 02 DO FUNCIONARIO 02 Eu consigo mostrar no cxGrid o total de registros (04), consigo também mostrar que o funcionario 01 tem 3 registros e que o funcionário 02 tem 2 registros. O que quero é mostrar no cxgrid que tenho 02 funcionários. Obrigado
  13. kartter

    Componente Indy

    Ei Jhonas, A questão é que se eu transferir do meu pc de desenvolvimento, vai normalmente. Ele sai do evento. Se tento executar no computador do cliente, ele não sai. Se eu tirar o timeout não sai do evento. Se eu colocar timeout, a conexão expira. Estou com um notebook no cliente, então em relação a velocidade da internet, não pode ser, pois estou na mesma rede. Abraços
  14. Boa noite! Uso o IDFTP como componente para realizar upload de arquivos. Acontece que se eu tento enviar arquivos de tamanho maior (+- 40 MB), ele processa normalmente, envia o arquivo tudo ok. Porém ela para no evento onWordEnd e não sai de maneira alguma. Se o arquivo for pequeno (+- 10 MB), não ocorre este erro. Na minha máquina de desenvolvimento, funcionar normal, porém no cliente, acontece o problema relatado acima. Alguém sabe se preciso atualizar ou colocar alguma dll no cliente, para que isto não ocorra.
  15. Boa noite Pessoal, Tenho um projeto com cerca de 120 formularios, sendo que estes são criados em tempo de execução mesmo. Acontece que de um tempo para cá, meu projeto demora muito para abrir (tanto em desenvolvimento quanto em produção). no dpr, ele fica cerca de 15 segundos parado no "begin" para depois ir para o "Application.Initialize;" Quando ele fica parado no begin, o uso de cpu fica oscilando entre 20 a 50%. Quando passa do begin e chega no Application.initialize, o uso do CPU cai para 0%. Alguém sabe porque acontece isto, pois teoricamente a aplicação não criou nenhum formulario, pois está no begin inicial do projeto DPR. Vlw pela ajuda!!
  16. Sim Jhonas, Estou usando o Tchart, O problema é inserir as imagens em cada ponto do grafico. Usando uma serie do Tchart, eu consigo inserir triangulo, circulo, etc, mas não consigo por exemplo inserir um colchete "[" ou uma seta, como contem no exemplo que anexei.
  17. Amigos, Boa tarde, Estou precisando criar um grafico para um módulo de audiometria aqui na empresa, porém não consegui achar nenhuma maneira de fazer este grafico, conforme o padrão de audiometria, que está no link http://rapidshare.com/files/1796808983/imagem.JPG Alguém sabe de alguma maneira, componente para poder gerar um gráfico deste tipo? Agradeço a ajuda pessoal
  18. Bom dia, No meu sistema, eu gero alguns documentos que os médicos precisam assinar. Eles me solicitaram que eu colocasse a assinatura digital. Alguém já utilizou o DELPHI para fazer a assinatura digital (ICP BRASIL), nos documentos gerados? Eu já tenho um token tipo A3 para realização dos testes. Obrigado pessoal!
  19. Amigos, Estava pequisando na internet algum componente que faz o reconhecimento de fala em Delphi (quero executar um evento, baseado no que o usuário falar). Achei um componente e um demo em: http://www.blong.com/Conferences/DCon2002/...PI51/SAPI51.htm Ele utiliza o SAPI da Microsoft. O problema é que sempre ocorre erro ao executar o principal exemplo contido neste link (ContinuousDictation). O erro é: --------------------------- Debugger Exception Notification --------------------------- Project ContinuousDictation.exe raised exception class EOleSysError with message 'OLE error 80045077'. Process stopped. Use Step or Run to continue. --------------------------- OK Help --------------------------- Alguém já conseguiu utilizar este exemplo, ou tem outro exemplo de como executar uma determinada função de acordo com o que o usuário falar no mic. do pc? Abraços
  20. Churc, Funcionou igual a minha rotina. Na primeira vez que chamo if playInside('nome do recurso') then ele toca o wave, porém se chamo novamente, já não toca mais, apesar da linha acima sempre retornar "True"
  21. Boa tarde pessoal, Criei um arquivo de recurso que contêm alguns waves que minha aplicação utiliza. Para executar o wave eu utilizo: PlaySound(PChar('ABC'),HInstance, snd_ASync or snd_Memory or snd_Resource); onde ABC é o apelido criado no arquivo de recurso. Funciona perfeitamente, porém só funciona na primeira execução. Se eu tentar executar esta linha várias vezes, ele só executa o WAV na primeira vez. Alguém sabe porque isto acontece? Abraços
  22. kartter

    NFE

    Amigos, boa noite. Tenho que adaptar meu frente de caixa para a versão 1.8 do roteiro do PAF, e agora é necessário a geração de N.F.E Agora tenho que fazer isto de qualquer maneira. Quero que me respondam apenas uma dúvida básica: Como consigo acessar o ambiente de homologação? Nos documentos, disponíveis no link https://hom.nfe.fazenda.gov.br/portal/lista...do=33ol5hhSYZk= Anexo I, diz que é necessário enviar um email para o SEFAZ solicitando a inclusão. Isto se aplica também para nós desenvolvedores? Neste mesmo documento, diz que: O que vem a ser este anexo? Obrigado pela ajuda pessoal! Abraços
  23. beleza Jhonas era isto mesmo q eu precisava. Estava querendo abrir um programa de TV dentro do delphi, e com sua dica funcionou beleza. A única coisa que não consegui foi o seguinte: O programa que abri no Form do Delphi tem uma tecla de atalho (F8), que se pressionada, deixa a TV em mute. Se o foco estiver na TV, é fácil, eu utilizo: keybd_event(tecla, 0, KEYEVENTF_EXTENDEDKEY, 0); keybd_event(tecla, 0, KEYEVENTF_KEYUP, 0); onde tecla é o valor da tecla do MUTE na tabela ASCCI Utilizo isto, no caso da pessoa receber alguma msg por exemplo, aí minha aplicação está monitorando este recebimento, e automaticamente tira o volume da TV. O problema é que se o foco não estiver na TV, isto não funciona. Por exemplo, a aplicação está minimizada e a pessoa trabalhando no word. Aí ela recebe uma msg, e minha aplicação tenta dar mute na TV e não consegue, pois o foco está no word. Tem como fazer isto? Tentei utilizar Windows.SetFocus(handleControler), onde HandleControler é o Handle da TV, porém sem sucesso. Abraços
  24. Amigos, Para eu abrir uma calculadora por exemplo, dentro de um formulário eu utilizo: Windows.SetParent(HANDLE_DA_CALCULADORA,Formulario.handle). Isto funciona perfeitamente. Acontece que eu queria determinar a posição desta calculadora, por exemplo, dentro do Formulário. Queria que ela abrisse no formúlário, na posição left 1, top 1, por exemplo. Alguém sabe alguma maneira de se fazer isto? Abraços
  25. Vamos lá, No delphi 2007, se eu quiser achar o componente CheckBox por exemplo, eu tenho uma caixa de pesquisa, onde digito por exemplo "check" e ele me retorna todos os componentes que iniciam com "check". Gostaria de saber se existe algum complemento que eu instale para que isto funcione também no delphi 7. Gostaria de saber também se existe algum complemento que otimize a compilação no Delphi 7, ou seja, que melhore a compilação, fazendo-a mais rápida.
×
×
  • Criar Novo...