robinhocne

Estava escrevendo agora...rsrsrs Vamos la, eu tenho a tabela criada no banco, mas tem campos nela que eu não quero trazer. Tenho uma consulta dinamica que traz uns dados, então precisava pegar esses campos dessa query que executou a consulta, criar os fields na tabela, o nome da tabela pela consulta eu já sei, então passo no table (o componente table já tenho no form) e ai quando eu der um open ele irá trazer somente os dados dos campos que eu quero que era da consulta.

Como faço para criar os campos do table em runtine de acordo com os campos de uma query ?

Bom dia Jhonas, resolvi assim: while not FDQuery1.Eof do begin FDBatchMove1.Mappings.Add; with FDBatchMove1.Mappings do begin Items[i].SourceFieldName := FDQuery1.FieldByName('nm_campode').AsString; Items[i].DestinationFieldName := FDQuery1.FieldByName('nm_campopara').AsString; end; i := i + 1; FDQuery1.Next; end;

Boa tarde, estou usando o FDBatchMoveDataSetReader1 para pegar os dados de uma query e usando o FDBatchMove1 para pegar os dados e jogar num FDBatchMoveSQLWriter1 para gravar os dados em outro lugar....o sql que retorna na query é dinamico e nem todos os campos que tem nele, terá na tabela de destino, então o que preciso é criar os mappings do FDBatchMove1 de origem e destino dinamicamente, estou fazendo assim; with FDQuery1 do begin Active := false; Close; sql.Clear; sql.add('select * from tbl_adm_configsynccampos where nm_tabelapara = ''tbl_prd_produtos'' '); open; end; while not FDQuery1.Eof do begin with BatchMove.Mappings do begin Add.SourceFieldName := FDQuery1.FieldByName('nm_campode').AsString; Add.DestinationFieldName := FDQuery1.FieldByName('nm_campopara').AsString; end; FDQuery1.Next; end; Ele está adicionando, mas está criando um item de mapping de origem e outro item de destino e não no mesmo item incluindo o destino e origem, coloquei manualmente para ver o objeto e ele deu assim; object BatchMove: TFDBatchMove Reader = Reader Mappings = < item SourceFieldName = 'origem' DestinationFieldName = 'destino' end item SourceFieldName = 'de' DestinationFieldName = 'para' end> LogFileName = 'Data.log' Analyze = [taFormatSet, taHeader, taFields] Left = 232 Top = 344 end Como faço para incluir dinamicamente ?

Jhonas.....hoje o pessoal do sistema me respondeu e conseguimos descobrir que o problema era na autenticação da API, ou seja os codigos sempre estava corretos...rs Obrigado pela ajuda e paciencia...

Bom dia, Não seria download, são dados que tenho que fazer um post, esses dados vou consultar num banco, jogar num DataSet e fazer o post. é infelizmente não consegui, já tentei de tudo e continua dando esse erro;

Bom dia, Jhonas com o delphi 7 dá esse erro com o FTP como seria ?

Boa noite, Jhonas é alguma treta do componente mesmo, porque fiz um simples teste em JSON de uma api qualquer em casa e não funcionou, proxy não é porque desabilitamos o proxy para testar, desabilitei o firewall também, nem um get de um JSon não consegui com esse componente, sinceramente acredito que não funcione mesmo.

Bom dia, Jhonas consegui resolver a dll instalando a versão Win32 OpenSSL v1.0.2k Light desse caminho http://external.informer.com/slproweb.com/ . Bom, parou de dar o erro de dll, mas infelizmente não me retorna nada..... veja como ficou meu codigo; procedure TForm2.Button3Click(Sender: TObject); var URL, Retorno: String; JsonStreamRetorno: TStringStream; JsonStreamEnvio : TStringList; begin URL := 'http://127.0.0.1:888/api/teste/pedido_venda/inclui'; JsonStreamEnvio := TStringList.Create; JsonStreamRetorno := TStringStream.Create(''); idHttp.Request.Clear; idHttp.Request.ContentType := 'application/json'; idHttp.Request.AcceptCharSet := 'UTF-8'; idHttp.Request.BasicAuthentication := False; idHttp.Request.Username := 'robinho'; idHttp.Request.password := '123456'; idHttp.Response.ResponseText := 'UTF-8'; idHttp.BoundPortMax := 5000; idHttp.IOHandler := IdSSLIOHandlerSocketOpenSSL1; try JsonStreamEnvio.Add(Memo1.Text); idHttp.Post(url, JsonStreamEnvio, JsonStreamRetorno); JsonStreamRetorno.Position := 0; Memo2.Lines.LoadFromStream(JsonStreamRetorno); finally JsonStreamEnvio.Free(); JsonStreamRetorno.Free(); end; end; Não sei mais o que fazer :'( Pelo RestClient como eu faria ? Jhonas tentei fazer esse mas adaptando ao meu.....fiz assim: procedure TForm2.Button5Click(Sender: TObject); var URL, Retorno: String; JsonStreamRetorno: TStringStream; JsonStreamEnvio : TStringList; begin URL := 'http://www.nif.pt/?json=1&q=509442013'; JsonStreamEnvio := TStringList.Create; JsonStreamRetorno := TStringStream.Create(''); idHttp.Request.Clear; idHttp.Request.ContentType := 'application/json'; idHttp.Request.AcceptCharSet := 'UTF-8'; //idHttp.Request.BasicAuthentication := False; //idHttp.Request.Username := 'robinho'; //idHttp.Request.password := 'rb823321'; idHttp.Response.ResponseText := 'UTF-8'; idHttp.BoundPortMax := 5000; idHttp.IOHandler := IdSSLIOHandlerSocketOpenSSL1; try JsonStreamEnvio.Add(Memo1.Text); idHttp.Get(url, JsonStreamRetorno); Memo2.Lines.LoadFromStream(JsonStreamRetorno); finally JsonStreamEnvio.Free(); JsonStreamRetorno.Free(); end; end; Não estou tendo retorno também, aqui na empresa tem proxy será que é o proxy ? ou estou carregando o retorno certo mesmo ? plis

voltarei a tentar amanha....vlw por hoje...

caraca, desisto, não consegui, já testei várias

Jhonas o primeiro é um .jar, o outro não tem .dll já testei várias aqui e não tá funcionando...estou com o w10 e delphi berlin

Show, mas não seria só colocar as dlls no system32 ou na pasta do .exe.... está dando erro First chance exception at $7628A932. Exception class EIdOSSLCouldNotLoadSSLLibrary with message 'Could not load SSL library.'. Process PostJSON.exe (10284)

Boa noite, Jhonas baixei a dll coloquei na pasta do .exe, e ainda tá dando erro; meu uses; , IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdIOHandler, IdIOHandlerSocket, IdIOHandlerStack, IdSSL, IdSSLOpenSSL, IdServerIOHandler;

Jhonas....eu já tentei também desse exemplo....bom de tanto sofrer hoje eu consegui progredir há não gerar mais o erro de autenticação, porque descobri que a API solicita autenticação, então fiz dessa maneira: procedure TForm2.Button1Click(Sender: TObject); var URL, Retorno: String; JsonStreamRetorno, JsonStreamEnvio: TStringStream; begin URL := 'http://username:password@127.0.0.1:888/api/millenium_eco/pedido_venda/inclui'; JsonStreamEnvio := TStringStream.Create(Memo1.Text); JsonStreamRetorno := TStringStream.Create(''); // Init request: try idHttp.Request.Clear; idHttp.Request.ContentType := 'application/json'; idhttp.Request.Charset := 'utf-8'; idHttp.Request.BasicAuthentication := true; idHttp.Request.ContentType := 'application/json;odata=light;charset=utf-8;'; idHttp.Request.Connection := 'keep-alive'; idHttp.Request.UserAgent := 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36'; idHttp.Request.AcceptEncoding := 'gzip, deflate'; idHttp.Request.AcceptLanguage := 'pt-BR,pt;q=0.8,en-US;q=0.6,en;q=0.4'; idHttp.Request.CacheControl := 'no-cache'; try idHttp.Post(URL, JsonStreamEnvio, JsonStreamRetorno); Memo2.Text := IdHTTP.Post(URL, JsonStreamEnvio); except on E:EIdHTTPProtocolException do Memo2.Lines.Add(e.ErrorMessage); end; finally memo2.Lines.add(JsonStreamRetorno.DataString); end; end; Então....ele passa pelo metodo post, mas não me retorna nada..... Adaptando esse codigo.... procedure TForm2.Button2Click(Sender: TObject); begin Memo2.Text := dopost('json',Memo1.Text); end; function TForm2.dopost(AFormat, ARequest: string): string; var RBody: TStringStream; begin RBody := TStringStream.Create(ARequest); try if AFormat = 'json' then begin idHttp.Request.ContentType := 'application/json'; idHttp.Request.ContentEncoding := 'utf-8'; end else begin idHttp.Request.Accept := 'text/xml'; idHttp.Request.ContentType := 'text/xml'; idHttp.Request.ContentEncoding := 'utf-8'; end; idHttp.Request.BasicAuthentication := True; idHttp.Request.Authentication := TIdBasicAuthentication.Create; idHttp.Request.Authentication.Username := 'robinho'; idHttp.Request.Authentication.Password := '123456'; Result := idHttp.Post('http://127.0.0.1:888/api/millenium_eco/pedido_venda/inclui', RBody); finally FreeAndNil(RBody); FreeAndNil(idHttp); end; end; dá erro de First chance exception at $7628A932. Exception class EIdHTTPProtocolException with message 'HTTP/1.1 401 Unauthorized'. Process PostJSON.exe (15160) passando a autenticação idHttp.Request.BasicAuthentication := True; idHttp.Request.Authentication := TIdBasicAuthentication.Create; //idHttp.Request.Authentication.Username := 'robinho'; //idHttp.Request.Authentication.Password := '123456'; Result := idHttp.Post('http://robinho:123456@127.0.0.1:888/api/millenium_eco/pedido_venda/inclui', RBody); ele não retorna nada....

Boa tarde, Jhonas eu tenho uma missão de realizar a integração do meu sistema com o sistema retaguarda, esse sistema é fechado e unico acesso que tenho é por API, tenho que mandar meus dados por um JSON, então estou tentando se comunicar basicamente primeiro, fiz testes no postman para verificar se está funcionando a API e ocorreu tudo bem, consigo fazer o post. Agora preciso montar uma aplicação no delphi, então coloquei um memo, coloquei o mesmo dados em JSON que funcionou no postman, nesse memo e utilizei esse codigo que passei acima. Não sei mais o que fazer, consegue me ajudar, a API está local na minha maquina para teste.

Estou tentando realizar um post e estou tendo esse erro : HTTP/1.1 401 Unauthorized abaixo meu codigo; procedure TForm2.Button1Click(Sender: TObject); var dados : TStrings; retorno : string; begin IdHTTP1.Request.CustomHeaders.Clear; IdHTTP1.Request.ContentType := 'application/json'; IdHTTP1.Request.Connection := 'Keep-Alive'; IdHTTP1.Request.UserAgent := 'User-Agent:Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/58.0.3029.96 Safari/537.36'; IdHTTP1.HandleRedirects := true; dados := TStringList.Create(); try dados.Add(Memo1.Text); retorno := IdHTTP1.Post('http://127.0.0.1:888/api/teste/pedido_venda/inclui',dados); finally end; dados.Free; end;

esse arquivo tem cabeçalho ? porque o que vc pode fazer é verificar o campo antes de passar para a tabela

entendi, consegui resolver aqui Jhonas da seguinte maneira; program Project1; uses Forms, ceflib, cefvcl, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} procedure CustomCommandLine (const processType: ustring; const commandLine: ICefCommandLine); begin commandLine.AppendSwitch('--enable-system-flash'); end; begin CefCache := 'cache'; CefOnBeforeCommandLineProcessing := CustomCommandLine; CefSingleProcess := False; if not CefLoadLibDefault then Exit; Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.

Então, Jhonas, mas pelo delphi como eu consigo ? veja meu erro: http://prntscr.com/d4b8wd

Estou montando um simples browser com o Chromium, porém quando abro um site em flash ele pede para instalar o plugin do flash, queria saber se existe alguma forma de carregar o flash para não precisar instalar no computador, ter alguma dll não sei...Alguém sabe como ?componente de Chromium https://delphimaniaco.wordpress.com/2016/03/15/utilizando-o-navegador-chrome-no-delphi/

Bom dia, estou com um problemão.... O Pessoal do meu servidor me deixou na mão, literalmente..... Estou saindo deles, porém só estou com acesso por ssh e ftp do servidor, copie todas as tabelas da pasta do mysql, porque executando um mysqldump está dando erros... Então criei um banco no meu computador com o mesmo nome, coloquei as tabelas na pasta desse banco local, mas como eu executo um sql em alguma tabela me dá esse erro: SELECT * FROM mahogany_mage502.mg_admin_user;[tagcod] [tagcod]21:46:41 SELECT * FROM mahogany_mage502.mg_admin_user LIMIT 0, 1000 Error Code: 1146. Table 'mahogany_mage502.mg_admin_user' doesn't exist 0.015 sec

tirando isso ele dá erro Synapse TCP/IP Socket erro 10091: Client sent ASCII text string beginning 'SSH-2...', is this the correct address/port?.

Jhonas agora não estou tendo esse erro, só que ele para no Init e não vai mais, trava.... Sobre a dll WinSock ele não pediu essa dll.

baixei a dll correta, mas agora ele não faz nada, fica travado.... percebi que ele trava no Init dessa função abaixo procedure TSimpleSFTP.Connect(Host,Port,UserName,Password:string); var NoDelay:Boolean; begin //setup proxy settings, ... before connecting FSocket.RaiseExcept:=True; try FSocket.Connect(Host,Port); //CryptLib manual recommends to disable the Nagle algorithm NoDelay:=True; setsockopt(FSocket.Socket,IPPROTO_TCP,TCP_NODELAY,@NoDelay,SizeOf(NoDelay)); //do ssh handshake FSocket.SSL.SSLType:=LT_SSHv2; FSocket.SSL.Username:=UserName; FSocket.SSL.Password:=Password; FSocket.SSL.SSHChannelType:='subsystem'; FSocket.SSL.SSHChannelArg1:='sftp'; FSocket.SSLDoConnect; //negotiate protocol version ResetSessionParams; Init; except Disconnect; raise; end; end;