robinhocne

cheguei a baixar esse exemplo, mas está dando esse erro ao tentar conectar Synapse TCP/IP Socket error 10091

Jhonas uso o delphi 7, nele não funciona...

Bom dia, Procurei pela internet alguns exemplos de conexão com ssh, achei muitos exemplos, componentes mas está complicado, pois muitos não funciona, peguei o do synapse mas também está dando erro... Precisar conectar via ssh e baixar uns arquivos e apagar da pasta, somente isso. Alguém pode me ajudar ?

preciso fazer isso com o adodb

Alguém ?

Boa noite, atualizei meu php, mysql e adodb e agora estou tendo o seguinte erro : (Object)#0 message = "faultCode:AMFPHP_RUNTIME_ERROR faultString:'mysql_pconnect(): The mysql extension is deprecated and will be removed in the future: use mysqli or PDO instead' faultDetail:'C:\xampp\php\adodb5\drivers\adodb-mysql.inc.php on line 476'" name = "Error" rootCause = (null)estou realizando a conexão : public function connection(){ $comf = new Config_ini(); $dbtype = $comf->dbtype; $dbname = $comf->dbname; $dbhost = $comf->dbhost; $dbuser = $comf->dbuser; $dbpass = $comf->dbpass; //---------------------------------------------- $db = NewADOConnection($dbtype); $db->SetFetchMode(ADODB_FETCH_ASSOC); $db->debug = false; $db->PConnect($dbhost,$dbuser,$dbpass,$dbname); $db->Execute("SET GLOBAL sql_mode='MYSQL40'"); $db->Execute("set names 'utf8'"); //---------------------------------------------- return $db; }no Config_ini.php é assim : <?php include_once '../../../../../php/adodb5/adodb.inc.php'; class Config_ini { public $dbtype="mysql"; public $dir_imagem_bd = ""; public $dbname="teste"; public $dbhost="localhost"; public $dbuser="root"; public $dbpass="123"; public $_explicitType = "Crud.Config_ini"; } ?>mesmo mudando o dbtype para mysqli não funciona....como faço ?

Pessoal, estou criando uma function trigger e só estou com um probleminha que não consigo resolver.... o trigger funcionara quando dar um insert na tabela de pagamentos... dentro da função, tenho insert e update com um loop para gerar parcelas....e etc.... tem uma etapa dela que preciso retorna uma consulta de um select com vários campos que são para calcular os juros de parcelas, vencimentos, tipos de bandeiras e etc... então eu não consigo fazer um select e colocando para cada coluna um into variavel, já tentei criar uma function records mas não deu para minha ideia.... tenho o seguinte select SELECT ds_rede,tp_cartao, ds_emissor,ds_bandeira,tp_formula from tbl_adm_redescartao where ds_emissor = NEW.ds_emissor quero armazenar em variavel as colunas do select porque vou usar posteriormente nos calculos. Como posso ?

Jhonas estive procurando aqui mas não achei como nesse componente, como jogo para outra aba (planilha) ?

Bom dia Pessoal, estou com um probleminha aqui que não estou conseguindo resolver. Uso o TAdvStringGrid da TMS e em consequência utilizo o TAdvGridExcelIO para exportar tudo para excel, mas estou com um problema que tenho uma analise com várias linhas e ao exportar está dando esse erro : List index out of bounds (65536) Creio que esteja estourando as linhas, mas como posso resolver ?

Descobri, era o DEP do windows. ufa....agora tá funcionando....obrigado.

Jhonas estou precisando de uma ajuda sua, pois não estou entendendo o porque está dando o erro. Estou com esse retorno Access violation at address 078E0C81. Write of address 078E0C81, ele dá quando executo a consulta no webservice, mas esse erro está dando aqui no meu serviço, já desativamos o proxy e mesmo assim dá erro, mas o mais estranho é que executando em outra maquina rodou, em casa também rodou, mas em uma 4ª maquina não rodou... sendo que está na mesma rede, o que pode ser ? pode me ajudar ? var ser: AtualizacaoPlatinum; begin inherited; lstProdutos := TStringList.Create; ser := GetAtualizacaoPlatinum(false,'',HTTPRIO1); lstProdutos.Text := ser.consultaProdutos(txPesCod.Text,txCodBar.Text,txRef.Text,dtmPlatinum.tblEmpresacd_empresa.AsString); Memo1.Text := lstProdutos.Text;

opa, funcionou sim Jhonas, agora só estou vendo uns erros aqui, mas acho que é o proxy na empresa, porque em casa funcionou de boa.

Boa tarde pessoal, sei que esse tópico é comum em alguns foruns, mas já tentei fazer alguns exemplos e não consegui e nem compreendi direto, preciso realizar uma consulta de um webservice, e esse retorno de webservice é uma string separado por | e a cada linha é um "enter". então tenho um função lá chamada consultaProdutos onde passo o codigo do produto e empresa e ele vai me retorna vários campos separados por |. No Delphi importei o wsdl e criei a unit dele, mas apartir dai fiquei confuso em como chamar a função consulta produtos, passar os parametros e pegar o retorno. Alguém poderia me ajudar ?

Agora foi Jhonas, então eu tenho que dar um BuildAll.... uma duvida....qunado chegar no Build 9, o proximo vai para 0 e o release muda para 1 ?

Estou usando também o delphi 7 e não está funcionando....quando eu compilo (Crtl+F9) ou (F9) ele não deveria mudar o Build ? Está tudo marcado, veja a imagem abaixo.

sim, até peguei por ele, mas como falei, mesmo colocando para auto increment ele não está incrementando.

Bom dia Pessoal, Nunca utilizei controle de versão e agora estou precisando muito....então pesquisei que no Delphi em Version Info só habilitando e colocando o auto increment já iria resolver minha situação, mas pelo jeito não 100%. Habilitei o auto increment, todos os modules atributes, mas quando compilo o projeto não sai do 1.0.0.0.... abaixo a função que uso para buscar o numero, mas nunca muda. function GetVersaoArq: string; var VerInfoSize: DWORD; VerInfo: Pointer; VerValueSize: DWORD; VerValue: PVSFixedFileInfo; Dummy: DWORD; begin VerInfoSize := GetFileVersionInfoSize(PChar( ParamStr(0)), Dummy); GetMem(VerInfo, VerInfoSize); GetFileVersionInfo(PChar(ParamStr(0)), 0, VerInfoSize, VerInfo); VerQueryValue(VerInfo, '\', Pointer(VerValue), VerValueSize); with VerValue^ do begin Result := IntToStr(dwFileVersionMS shr 16); Result := Result + '.' + IntToStr( dwFileVersionMS and $FFFF); Result := Result + '.' + IntToStr( dwFileVersionLS shr 16); Result := Result + '.' + IntToStr( dwFileVersionLS and $FFFF); end; FreeMem(VerInfo, VerInfoSize); end;

Estou tentando conectar em um sftp através do amfphp + flex, mas não estou conseguindo.... tentei assim : $connection = ssh2_connect('shell.example.com', 22); ssh2_auth_password($connection, 'username', 'password'); $sftp = ssh2_sftp($connection); mas dá erro (Object)#0 message = "faultCode:INVALID_AMF_MESSAGE faultString:'Invalid AMF message' faultDetail:' Fatal error: Call to undefined function ssh2_connect() como faço ?

Gostaria de saber algum componente free para criar grafico, atualmente uso o delphi 7

Estou utilizando o MySql Workbench para exportar a minha base toda do local para a web, porém quando exporta, as minhas views vira tabelas e ai eu tenho que deletar e criar uma por uma, percebi no sql de exportação que o proprio workbench gera assim. Como faço para exportar as views corretamente também ? Poderia me indicar um programa para sincronizar um banco local para web....

Jhonas aparentemente resolveu....ufa....obrigado.

Pessoal estou ficando frustado com o erro no in module RLINK32.DLL, sei que esse erro é por minha culpa, pois inventei de usar um monte de componentes de terceiros e assim o meu executável, mas como o sistema já está em produção eu não estou com tempo para ir tirando esses componentes e deixando mais light, então sai procurando na internet e vi que se trocar a dll para do delphi 2010 (há meu delphi é o 7) , isso poderia resolver parcialmente, mas não adianta, sempre dá esse erro na hora de compilar e tenho umas pendencias para ser feitas e corrigidas e ai sim que vou conseguir parar para tirar esses componentes. Alguém pode me ajudar para eu acertar esse erro sem ser tirar os componentes, para terem uma ideia eu até tirei as imagens e criei em dll.

Jhonas, você poderia me ajudar a montar com o tabControl ou pageControl, pois o que eu estou usando é o JvTabBar e JvPageList....não estou conseguindo montar...com eles.

pelo jeito não tenho solução :( , poxa tinha feito um esquema legal onde abro as telas em abas, mas infelizmente não consigo usar as teclas de atalhos :unsure: Não tem algum componente que faça isso ? o ApplicationEvents até faz, mas ele pega de qualquer tela...tinha que ser especifico daquela tela aberta na aba :( .

Desculpe a demora, mas estava corrido e nem pude tentar atualizar a biblioteca, mas fiz os seguintes passos... baixei a nova versão do dcc32.exe coloquei no System32 e no SysWOW64, reinicie a maquina e tentei instalar a versão 3.47, porém travei de novo no "requires-jcl=1.105", então copie a pasta da bilblioteca para outra unidade do computador, pelo visto o windows 8.1 por privilégios, mesmo tendo todos na pasta Borland acabava travando algo..., tentei executar e fui barrado com esse erro ...GenerateDefines.pas(46) Fatal: F1026 File not found: 'System.Types.dcu' então achei no "oraculo" https://www.google.com.br/search?q=delphi+-+JEDI+System.Types.dcu&o que=delphi+-+JEDI+System.Types.dcu&aqs=chrome..69i57.3616j0j4&sourceid=chrome&es_sm=122&ie=UTF-8 e editando o arquivo GenerateDefines.pas, na linha 46 e troquei System.Types para Types Mas ao compilar meu projeto....outro problema....faltou algumas Library, mas colocando manualmente, resolveu a compilação. Mas por tristeza minha, não funcionou os atalhos.....mesmo atualizando.....o JEDI :(