Ir para conteúdo
Fórum Script Brasil

xlayx

Membros
  • Total de itens

    8
  • Registro em

  • Última visita

Tudo que xlayx postou

  1. Olá,bom dia Sou totalmente iniciante em java, estou procurando um codigo feito para enviar email apos aperta o BOTAO, porem na net só encontro codigo para java web, alguém pode me fornecer um pronto de java desktop? Obrigado pessoal
  2. já sim, mas não achei nenhuma solução que pudesse resolver fazendo o debugger :S
  3. Atualizei o delphi ontem, nessas atualizações 4 e 5,e fui testar e deu na mesma =[.. :S
  4. já baixei varios da internet para transferir arquivo ou imagem via socket e nenhum funcioona compilando via delphi 2010. ele compila de boas sem dar errros no delphi 2010, mas porem a parte de transferir a imagem não funciona. alguém mim da um help awe ou tem a fonte ou o conhecimento de como fazer funcionar no delphi 2010?porque já tentei de tudo e não consigo.. obrigado gente
  5. Eu tava vendo este site tambem quase agora jonas, mas não conseguir resolver. Obrigado então, eu aguardo voce ou quem puder me ajudar a solucionar este problema Agradecido.
  6. Eu declarei a USES já sim jonas,já tinha declado era já. Porem não funciona para transferir o arquivo. Jonas ou alguém mim da um help? =[
  7. Não jonas, não to usando nenhum componente do delphi 7, voce testou ai??
  8. Olá pessoal,estou tentando criar uma conexão remota para efetuar Printscreen. já tenho um código todo feito que achei na net, porem ele funciona somente compilando no delphi 7, ele compila de boa no delphi2010,sem dar nenhum erro... mas não transferi o arquivo jpeg ao executar e enviar o sendtext. alguém pode mim da um help para funcionar corretamente no delphi 2010?? :wacko: Siga abaixo código Site com a fonte: http://www.forum-invaders.com.br/vb/showth...ados-via-socket Código que transferi o arquivo procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket); var s: string; begin s:=Socket.ReceiveText; if not Receiving then begin if pos(#0,s) > 0 then stSize:=strtoint(copy(s,1,pos(#0,s)-1)) else exit; Stream:=TMemoryStream.Create; Receiving:=True; delete(s,1,pos(#0,s)); end; try Stream.Write(s[1],length(s)); if Stream.Size = stSize then begin Stream.Position:=0; Receiving:=False; jpg:=TJPEGImage.Create; jpg.LoadFromStream(Stream); Image1.Picture.Assign(jpg); Stream.Free; end; except Stream.Free; end; end;
×
×
  • Criar Novo...