Jhonas

Monitores
  • Content Count

    9524
  • Joined

Community Reputation

0 Neutro

About Jhonas

Perfil

  • Gender
    Male
  • Location
    São Paulo

Recent Profile Visitors

24220 profile views
  1. if dm.CDS_LIVROS.Locate('ID_LIVRO',dm.CDS_RESERVA.FieldByName('TOMBO_LIVRO').AsInteger,[]) then // livro escolhido begin if dm.CDS_RESERVA.FieldByName('DT_RESERVA').AsDateTime =Strtodate(dbedit5.Text) then // verifica se as datas são iguais begin messagedlg('Livro reservado nesta data, escolha outra data!',mtInformation,[mbok],0); DBLookupComboBox2.SetFocus; end else begin falso(); tratabotoes(); dm.CDS_RESERVA.Post; dm.CDS_LIVROS.Edit; dm.CDS_LIVROS.FieldByName('STATUS_LIVRO').AsString:=('RESERVADO'); DM.CDS_LIVROS.Refresh; messagedlg('Registro inserido com sucesso!',mtInformation,[mbok],0); if messagedlg('Deseja imprimir o recibo?',MtConfirmation,[mbYes,mbNo],0)=mrYes then begin dm.recibo_reserva.ShowReport; end else abort; end; end; Obs: Se não existirem cópias do mesmo livro está correto. Mas se tiver mais cópias do mesmo livro, então voce não pode usar dessa maneira, pois o comando Locate sempre vai encontrar a primeira ocorrencia ( nome do livro ) nos registros da tabela. Porem vale lembrar que o comando Locate ( em caso de tabelas muitos grandes ) não é aconselhavel usar, pois voce terá perda de performance ( tempo ) na localização do registro na tabela. Nesse caso, prefira usar o comando Select dentro de um componente Query. abraço
  2. Membro bagyhc1153 postou vários Spans ( Favor remover )

     

  3. voce não informou qual é o banco de dados que está usando. Se for o MYSQL o campo Data deve ser Date e não DateTime dm.CDS_RESERVA.FieldByName('DT_RESERVA').AsDateTime =Strtodate(dbedit5.Text) Me expressei mal.... o comando acima está correto, voce só não pode definir o campo da tabela como DateTime e sim Date ... entendeu ? OBS: quando vode alterar o campo de sua tabela, voce deve apagar o campo do object inspector e coloca-lo novamente no componente ClientDataSet ou na Query ou no Table abraço
  4. dm.CDS_RESERVA.FieldByName('DT_RESERVA').AsDateTime =Strtodate(dbedit5.Text) then // verifica se as datas são iguais lembre-se que AsDateTime testa a data e a hora .... se estiverem diferentes no segundo já não são iguais. então prefira usar somente AsDate ( ou seja use somente o campo data ) defina o campo da tabela como Date somente abraço
  5. Basta testar a data prevista na tabela só preciso saber qual o banco de dados voce esta usando e a versão do seu delphi abraço
  6. ok ... vi que a sua dúvida já foi resolvida http://www.activedelphi.com.br/forum/viewtopic.php?t=96177&sid=179d8c4032a632ad352571c0c60b8d86 abraço
  7. Pelo que eu entendi, quando voce clica no botão, são criados no form 6 Timages dinamicamente, e voce quando clicar em algum TImage, quer que apareça uma mensagem referente a esse TImage ... é isso ? o nome das imagens seriam : image0, image1... image6 ( isso todas as vezes que voce clicar nesse botão ) se as imagens forem sempre as mesmas e carregadas sempre no mesmo TImage, não precisa nem usar matriz. serão diferentes todas as vezes que voce clicar no botão ? Se forem, voce não pode atribuir um nome fixo ao TImage, mas teria que carregar o TImage com o nome da foto ( imagem ) e assim fazer a referencia ao nome dessa imagem. assim como voce criou um evento dinamico para os TImages voce tambem pode criar um evento dinamico para o Onclick como é que voce quer que isso funcione ? Veja nesses links, alguns exemplos que voce pode usar https://forum.imasters.com.br/topic/212535-evento-onclick-em-imagem-criada-dinamicamente/ https://www.experts-exchange.com/questions/23448044/TForm-Create-onClick-TImage-TButton-Dynamically-created-form-with-buttons-and-events.html https://www.experts-exchange.com/questions/27313699/How-to-create-a-dynamic-event-handlers-for-components-created-at-runtime.html abraço
  8. Bom, eu sei que através de configurações do servidor é possivel aumentar o tamanho do upload. Verifique junto a empresa, se a API está configurada com essa limitação abraço
  9. Infelizmente o servidor para onde estou enviando as informações só aceita JSON. Esse servidor não tem um WebService ? Esse servidor não tem o MYSQL nativo ? Se sim, voce pode fazer o upload para o MYSQL sem usar o JSON
  10. Testei o seu código, o erro é que não encontra a biblioteca SSL ( pois não tenho ela instalada ) voce consegue enviar o arquivo sem usar o JSON ? OBS: Em um dos links que te passei, para contornar isso, o arquivo foi dividido e depois enviado ( tem um exemplo lá ). abraço
  11. experimenta dessa maneira var Resposta: String; fsParams: TFileStream; begin fsParams := TFileStream.Create('c:\temp\jason.txt', fmOpenRead or fmShareDenyNone); Handler := TIdSSLIOHandlerSocketOpenSSL.Create; JsonStreamRetorno := TStringStream.Create(''); HTTPClient := TidHTTP.Create; HTTPClient.Request.Clear; HTTPClient.Request.ContentType := 'application/json'; HTTPClient.ProtocolVersion := pv1_0; HTTPClient.Request.Accept := '*/*'; HTTPClient.Request.UserAgent := 'Mozilla/3.0 (compatible; Indy Library)'; HTTPClient.Request.AcceptEncoding := 'gzip, deflate'; HTTPClient.Request.Connection := 'keep-alive'; HTTPClient.Request.CacheControl := 'no-cache'; HTTPClient.Request.ContentEncoding := 'utf-8'; HTTPClient.IOHandler := Handler; Handler.SendBufferSize := 250000; JSonRet := TlkJSONobject.Create; //AssignFile(myFile, 'c:\temp\jason.txt'); //Reset(myFile); //myFileSize := FileSize(myFile); //HTTPClient.Request.ContentLength := MyFileSize; //CloseFile(myFile); Resposta := HTTPClient.post('https://api.emacro.com.br/fotos/criar',fsParams); ShowMessage(Resposta); JSonRet := TlkJSON.ParseText(Resposta) as TlkJSONobject; Memo2.Lines.Add(GenerateReadableText(JSonRet,i)); end; abraço
  12. Qual é a configuração do TidHTTP ? Voce experimentou mudar a configuração padrão da propriedade SendBufferSize de 32768 para 250000 ? O ultimo link que te passei, são informações sobre esse erro usando o JSON e como corrigi-lo abraço
  13. Erro 413: Um erro de solicitação 413 ocorre quando uma solicitação ( upload ) feita de um cliente é muito grande ( Tamanho ) para ser processada pelo servidor da web. Possiveis soluções: https://www.codeproject.com/Questions/882577/HTTP-Request-Entity-Too-Large https://www.hostinger.com.br/tutoriais/como-corrigir-erro-413/ https://www.codeproject.com/Articles/43272/Uploading-Large-Files-Through-Web-Service https://www.google.com.br/search?ei=bMWlXbfVOLWV5OUPqaa04Aw&q=http+1.1+413+request+entity+too+large+json&o que=HTTP%2F1.1+413+Request+Entity+Too+Large+json&gs_l=psy-ab.1.0.33i22i29i30.684762.685410..688098...0.2..0.326.1168.2-3j1......0....1..gws-wiz.......0i71.01BOPcfh_Eg abraço
  14. Não fiz nada parecido, no entanto posso te passar os links onde voce pode pesquisar mais a respeito do assunto: https://www.google.com.br/search?ei=n8mfXbWwKKWe_Qalu7_QCQ&q=enviar+sms+delphi+7&o que=enviar+sms+delphi+&gs_l=psy-ab.1.0.0l2j0i22i30l8.305818.306718..312052...0.2..0.264.1516.0j1j6......0....1..gws-wiz.......0i71.Va8gUZaSX7M https://www.google.com.br/search?source=hp&ei=i8ufXY65Jfuy5OUPzeu-qA4&q=www.activexperts.com%2Factivsms%2Fhowto%2Fhttp%2Fdelphi%2F&o que=www.activexperts.com%2Factivsms%2Fhowto%2Fhttp%2Fdelphi%2F&gs_l=psy-ab.3...1570.1570..2152...0.0..0.230.230.2-1......0....2j1..gws-wiz.S_Y0vPhk_Qk&ved=0ahUKEwjOquy8-JLlAhV7GbkGHc21D-UQ4dUDCAU&uact=5 https://www.google.com.br/search?source=hp&ei=a8ufXf-UE92x5OUPkP2N2Ac&q=www.zenvia.com.br%2Fdesenvolvedores%2Ftutoriais-e-biblioteca%2Fintegracao-delphi-para-envio-de-sms%2F&o que=www.zenvia.com.br%2Fdesenvolvedores%2Ftutoriais-e-biblioteca%2Fintegracao-delphi-para-envio-de-sms%2F&gs_l=psy-ab.3...1356.1356..1988...0.0..0.236.236.2-1......0....2j1..gws-wiz.....0.y6YzSokk5vA&ved=0ahUKEwi_9rit-JLlAhXdGLkGHZB-A3sQ4dUDCAU&uact=5 abraço
  15. A solução do erro está nesse link ( ingles ) faça a tradução https://tmssoftware.com/site/forum/forum_posts.asp?TID=1461&PID=5054&SID=7a646z75-fzb6-79b3cz4b-eb3bc84f-5ea45z5b&title=platform-error-iw-component-pack-pro-script#5054 outros links https://www.google.com.br/search?ei=MuydXeKDE5K75OUP1cqSuAU&q=[Error+Error]+Invalid+PLATFORM+variable+"BPC".&o que=[Error+Error]+Invalid+PLATFORM+variable+"BPC".&gs_l=psy-ab.3..0i22i30.10978.10978..11818...0.0..0.244.244.2-1......0....1..gws-wiz.J4s25FVE1eA&ved=0ahUKEwji5Mqqr4_lAhWSHbkGHVWlBFcQ4dUDCAo&uact=5 abraço