Ir para conteúdo
Fórum Script Brasil

Annelise

Membros
  • Total de itens

    67
  • Registro em

  • Última visita

Tudo que Annelise postou

  1. galera, to com um pequeno probleminha.... tenho uma tabela onde coloco os dados que têm no maximo 20 caracteres, queria que a minha celula ficasse somente com um tamanho, ou seja, que ela não variasse de tamanho de acordo com o numero de caracteres que contiver o texto... se alguém puder me ajudar... brigadim bjus Ana :0)
  2. Annelise

    Data Do Arquivo

    <!-- INÍCIO - Última Atualização --> <script language="JavaScript"> function last_modified() { var mo = new Array('Janeiro','Fevereiro','Março','Abril','Maio','Junho','Julho','Agosto','Setembro','Outubro','Novembro','Dezembro') var d = new Date(document.lastModified) var t = new String(d.getYear()) s="Última: " + d.getDate() + " " + mo[d.getMonth()]+" " if(t.length==2) s+="19" s+=t+". " document.write('<center>' + s + '</center>') } </script> <script language="JavaScript">last_modified()</script> <!-- FIM - Última Atualização --> DESSA FORMA EU TENHO A DATA DA PAGINA HTML....E SE EU QUISER COLOAR A DATA DO ARQUIVO TXT DE ONDE ESTOU BUSCANDO OS DADOS QUE ESTAO SENDO MOSTRADOS NA PAGINA??? POR FAVOR, SE alguém PUDER AJUDAR...GRATA.. BJIM,...ANA
  3. Annelise

    Envio De Email

    DESCULPE KIKO, não É POR ISSO QUE DISSE QUE O FORUM TA HORROROSO............... são OUTROS MOTIVOS...DEPOIS ENVIO UMA MSG FECHADA A você E TE FALO..... DESCULPE SE ME EXPRESSEI MAU...... VALEU
  4. Annelise

    Envio De Email

    ESSSE FORUM já FOI MELHOR..................................................................TO HORROROSO ..................
  5. Annelise

    Envio De Email

    OLA TO USANDO O CODIGO DO LINK DO IMASTERS QUE você ME PASSOU.....MAS TA DANDO O SEGUINTE ERRO: ELE ABRE UMA TELA E PEDE O SEGUINTE: IdStack.pas quando CONCELO OU IGNORO ESSA MSG DA O SEGUINTE ERRO: Socket error #11001 Host not Found O CODIGO E ESSE: unit email; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, IdMessage, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP, StdCtrls, Buttons; type TForm1 = class(TForm) IdMessage: TIdMessage; IdSMTP: TIdSMTP; edtPara: TEdit; edtCC: TEdit; edtCCO: TEdit; edtAssunto: TEdit; cbxPrioridade: TComboBox; cbxConfirmaLeitura: TCheckBox; botaoanexar: TBitBtn; mmMensagem: TMemo; BitBtn2: TBitBtn; odanexos: TOpenDialog; ListBox1: TListBox; procedure botaoanexarClick(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.botaoanexarClick(Sender: TObject); begin if odAnexos.Execute then ListBox1.Items.Add(odAnexos.FileName); end; procedure TForm1.BitBtn2Click(Sender: TObject); var xAnexo : Integer; begin IdMessage.Recipients.EMailAddresses := edtPara.Text; IdMessage.CCList.EMailAddresses := edtCC.Text; IdMessage.BccList.EMailAddresses := edtCCO.Text; //Trata a Prioridade da mensagem case cbxPrioridade.ItemIndex of 0 : IdMessage.Priority := mpHigh; 1 : IdMessage.Priority := mpNormal; 2 : IdMessage.Priority := mpLow; end; IdMessage.Subject := edtAssunto.Text; IdMessage.Body := mmMensagem.Lines; if cbxConfirmaLeitura.Checked then IdMessage.ReceiptRecipient.Text := IdMessage.From.Text; // Auto Resposta //Tratando os arquivos anexos for xAnexo := 0 to ListBox1.Items.Count-1 do TIdAttachment.create(idmessage.MessageParts, TFileName(ListBox1.Items.Strings[xAnexo])); IdSMTP.Connect; try IdSMTP.Send(IdMessage); finally IdSMTP.Disconnect; end; Application.MessageBox('Email enviado com sucesso!', 'Confirmação', MB_ICONINFORMATION + MB_OK); end; end.
  6. Annelise

    Enter

    TODA VEZ QUE EU DER ENTER CRIAR UMA LINHA DA SEGUINTE MANEIRA. NA MINHA TELA TEM UM MEMO ONDE DIGITO OS DADOS POR EX: MEDICAMENTO 1 (AGORA DOU O ENTER) E DEBAIXO DE MEDICAMENTO 1(já NO QUICK REPORT) APARECA UMA LINHA (UM TRACO) E FIQUE DA SEGUINTE MANEIRA: MEDICAMENTO 1 ___________________________________________________________
  7. Annelise

    Enter

    GALERA TO PRECISANDO DO SEGUINTE... TODA VEZ QUE EU DER ENTER, CRIE UMA LINHA EM UM REPORT (FORMULARIO) TEMN COMO? alguém PODE ME AJUDAR? VALEU T+
  8. Annelise

    Envio De Email

    TENHO TB O SEGUINTE CODIGO: { Seu servidor SMTP } NMSMTP1.Host := 'santacasabh.org.br'; { Porta SMTP, **NÃO MUDE ISTO** } NMSMTP1.Port := 25; { Nome de login do usuário } NMSMTP1.UserID := 'annelise'; { Conecta ao servidor } NMSMTP1.Connect; { Se ocorrer algum erro durante a conexão com o servidor, avise! } if not NMSMTP1.Connected then raise Exception.Create('Erro de conexão'); with NMSMTP1.PostMessage do begin { Seu e-mail } FromAddress := 'annelise@santacasabh.org.br'; { Seu nome } FromName := 'Annelise'; { E-mail do destinatário } ToAddress.Clear; ToAddress.Add('annelise.soares@gmail.com'); { Assunto da mensagem } Subject := 'TESTE - ENVIO DE EMAIL'; { Corpo da mensagem } Body.Clear; Body.Add('Primeira linha da mensagem'); Body.Add('Segunda linha da mensagem'); Body.Add(''); { Linha em branco } Body.Add('Última linha da mensagem'); { Anexar arquivos(Se não quiser anexar arquivos, apague as 3 linhas seguintes) } Attachments.Clear; { Endereço do anexo } Attachments.Add('c:\diretorio\arquivo.txt'); end; { Manda o e-mail } NMSMTP1.SendMail; { Disconecta do servidor } NMSMTP1.Disconnect; end; { Para enviar o mesmo e-mail para vários destinatário de uma só vez basta adicionar os endereços de e-mails de todos os destinatários em NMSMTP1.PostMessage.ToAddress. } QUE DA O SEGUINTE ERRO: ... raised excepition class ESockError with message "Host LookupFailed". ...
  9. Annelise

    Envio De Email

    ele abre uma tela "ESCOLHER PERFIL" com a opçao do outlook
  10. GALERA ESTOU TENTANDO ENVIAR EMAIL ATRAVES DO DELPHI..... ESTE E O MEU CODIGO (QUE ME PASSARAM....) SE alguém PUDER ME AJUDAR....AGRADECEREI... unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Mapi, StdCtrls, Buttons; type TForm1 = class(TForm) BitBtn1: TBitBtn; procedure BitBtn1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} function SendEMail(Handle: THandle; Mail: TStrings): Cardinal; type TAttachAccessArray = array [0..0] of TMapiFileDesc; PAttachAccessArray = ^TAttachAccessArray; var MapiMessage: TMapiMessage; Receip: TMapiRecipDesc; Attachments: PAttachAccessArray; AttachCount: Integer; i1: integer; FileName: string; dwRet: Cardinal; MAPI_Session: Cardinal; WndList: Pointer; begin dwRet := MapiLogon(Handle, PChar(''), PChar(''), MAPI_LOGON_UI or MAPI_NEW_SESSION, 0, @MAPI_Session); if (dwRet <> SUCCESS_SUCCESS) then begin MessageBox(Handle, PChar('Error while trying to send email'), PChar('Error'), MB_ICONERROR or MB_OK); end else begin FillChar(MapiMessage, SizeOf(MapiMessage), #0); Attachments := nil; FillChar(Receip, SizeOf(Receip), #0); if Mail.Values['to'] <> '' then begin Receip.ulReserved := 0; Receip.ulRecipClass := MAPI_TO; Receip.lpszName := StrNew(PChar(Mail.Values['to'])); Receip.lpszAddress := StrNew(PChar('SMTP:' + Mail.Values['to'])); Receip.ulEIDSize := 0; MapiMessage.nRecipCount := 1; MapiMessage.lpRecips := @Receip; end; AttachCount := 0; for i1 := 0 to MaxInt do begin if Mail.Values['attachment' + IntToStr(i1)] = '' then break; Inc(AttachCount); end; if AttachCount > 0 then begin GetMem(Attachments, SizeOf(TMapiFileDesc) * AttachCount); for i1 := 0 to AttachCount - 1 do begin FileName := Mail.Values['attachment' + IntToStr(i1)]; Attachments[i1].ulReserved := 0; Attachments[i1].flFlags := 0; Attachments[i1].nPosition := ULONG($FFFFFFFF); Attachments[i1].lpszPathName := StrNew(PChar(FileName)); Attachments[i1].lpszFileName := StrNew(PChar(ExtractFileName(FileName))); Attachments[i1].lpFileType := nil; end; MapiMessage.nFileCount := AttachCount; MapiMessage.lpFiles := @Attachments^; end; if Mail.Values['subject'] <> '' then MapiMessage.lpszSubject := StrNew(PChar(Mail.Values['subject'])); if Mail.Values['body'] <> '' then MapiMessage.lpszNoteText := StrNew(PChar(Mail.Values['body'])); WndList := DisableTaskWindows(0); try Result := MapiSendMail(MAPI_Session, Handle, MapiMessage, MAPI_DIALOG, 0); finally EnableTaskWindows( WndList ); end; for i1 := 0 to AttachCount - 1 do begin StrDispose(Attachments[i1].lpszPathName); StrDispose(Attachments[i1].lpszFileName); end; if Assigned(MapiMessage.lpszSubject) then StrDispose(MapiMessage.lpszSubject); if Assigned(MapiMessage.lpszNoteText) then StrDispose(MapiMessage.lpszNoteText); if Assigned(Receip.lpszAddress) then StrDispose(Receip.lpszAddress); if Assigned(Receip.lpszName) then StrDispose(Receip.lpszName); MapiLogOff(MAPI_Session, Handle, 0, 0); end; end; procedure TForm1.BitBtn1Click(Sender: TObject); var mail: TStringList; begin mail := TStringList.Create; try mail.values['to'] := 'annelise.soares@gmail.com'; ///AQUI VAI O EMAIL DO DESTINATARIO/// mail.values['subject'] := 'Hello'; ///AQUI O ASSUNTO/// mail.values['body'] := 'blah'; ///AQUI O TEXTO NO CORPO DO EMAIL/// mail.values['attachment0'] := 'C:\Test.txt'; ////AQUI O ENDEREÇO ONDE ENCONTRAM OS ARQUIVOS// mail.values['attachment1']:='C:\Test2.txt'; ///IDEM - NO ATTACHMENT1 TEM QUE COLOCAR A SEQUNCIA DO EMAIL A QUAL DESEJA ENVIAR EXEMPLO: ATTACHMENT1 sendEMail(Application.Handle, mail); finally mail.Free; end; end; end.
  11. BOM DIA GALERA, alguém PODE ME DIZER COMO POSSO ENVIAR EMAIL ATRAVES DO DELPHI? AGRADEÇO SE alguém PUDER ME AJUDAR. BJUS
  12. SERA Q alguém TEM AI UM PROGRAMA DE CONTROLE DE ESTOQUE COM O DCODIGO FONTE...E QUE não SE IMPORTARIA DE ME PASSAR PARA QUE EU POSSA DAR UMA ESTUDADA....ESTOU COMEÇANDO NO DELPHI...E QUERIA CRIAR UM PROGRAMINHA DE CONTROLE DE ESTOQUE. OBRIGADA.....BJUS
  13. e ai galera... blza? aki, tem como eu mudar a cor de um botao? se alguém puder me ajudar....brigadim
  14. GALERA, TO PRECISANDO DE FAZER UM CONTADOR DE ACESSOS... SERA QUE TEM COMO FAZER UM SEM USAR LINGUAGENS DO TIPO ASP OU PHP? SE alguém SOUBER DE ALGUM DA FORMA QUE ESTOU PRETENDENDO.....E PUDER ME AJUDAR! BRIGADIM
  15. Annelise

    Clima / Tempo

    BRIGADIM....... VALEU MESMO...FUNCIONOU
  16. Annelise

    Clima / Tempo

    BOA TARDE GALERA.... COMO POSSO FAZER PARA MOSTRAR CLIMA/TEMPO DE UMA DETERMINADA CIDADE EM MEU SITE....COM AKELAS FOTINHAS QUEM TEM MOSTRAM "NUBLADO", "CHUVOSO", "ENSOLARADO" ETC..... SE alguém PUDER ME AJUDAR??? BRIGADIM
  17. BOA TARDE GALERA.... AKI, COMO POSSO FAZER UM esqueminha PARA QUE NO MEU SITE EU POSSA MOSTRAR O CLIMA / TEMPO DA MINHA CIDADE?? SE alguém PUDER ME AJUDAR... BRIGADIM
  18. COMO POSSO FAZER ISSO... ESTOU COMECANDO AGORA NO MUNDO DO DELHPI.... SERA QUE você PODE ME AJUDAR?
  19. OLA.... ATE QUE FUNIONOU O CODIGO QUE você ME PASSOU...PAROU DE DAR O ERRO.... MAS É O SEGUINTE, ELE GRAVA APENAS O ULTIMO DADO....QUERIA QUE GRAVASSE TODOS...POR EXEMPLO: DADO 1 DADO 2 DADO 3 DADO 4 DADO 5 // AssignFile(F,'C:\PACIENTESPROCORDIS.txt'); Rewrite(F); Writeln(F,vaiTXTProcordis); //VAITXTPROCORDIS -> VARIAVEL QUE RECEBERA OS DADOS A SEREM GRAVADO NO TXT CloseFile(F); //
  20. O "ERRO" E NA LINHA APPEND DA FUNCAO
  21. GALERA , E O SEGUINTE: GRAVO DADOS EM UM TXT, USANDO UMA FUINCAO QUE SEGUE ABAIXO: //*FUNCAO CRIA ARQ TXT*// function CriarArquivo(NomeArq,Dados: String):Boolean; var F:TextFile; begin try AssignFile(F,NomeArq); if not FileExists(NomeArq) then ReWrite(F) else Append(F); Result:=True; except Result:=False; end; if Result then begin WriteLn(F,Dados); CloseFile(F); end; end;//*FIM CRIA TXT*// AI CHAMO ESSA FUNCAO DA SEUINTE MANEIRA: //*CRIA ARQUIVO TXT*// NOME_ARQ := 'PACIENTESLOCAL.txt'; CriarArquivo(NOME_ARQ,vaiTXTProcordis); //*FIM CRIA ARQUIVO TXT*// MAS TA DANDO UM ERRO QUE já ME TIROU A PACIENCIA...não TEM NADA DE ERRADO NO CODIGO.....ME AJUDEM POR FAVOR...não AGUENTO MAIS..... O ERRO E ESSE: "nome do projeto" raised excepition class ElnOutError with message 'I/O error 32'. VOU POSTAR O CODIGO TODO, QUEM SABE ASSIM ALGUM PODE ME AJUDAR. DESDE já AGRADEÇO. procedure TFormPrescricao.BitBtnSalvarClick(Sender: TObject); var Diretorio : string; vai_arq : string; contlinha : integer; aux : string; vaiTXTProcordis : String; num_pront : string; NOME_ARQ : string; begin if MessageDlg('DESEJA REALMENTE SALVAR ESTA PRESCRIÇÃO?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then BEGIN cont := 0; vai_arq := ''; MemoGeraPacientesProcordis.Lines.Clear; MemoGeraPacientesProcordis.Lines.Append(EditNProntuario.Text); MemoGeraPacientesProcordis.Lines.Append(EditNomePaciente.Text); MemoGeraPacientesProcordis.Lines.Append(ComboBoxLeito.Text); MemoGeraPacientesProcordis.Lines.Append(ComboBoxNAtendimento.Text); MemoGeraPacientesProcordis.Lines.Append(ComboBoxPrescricaoPadrao.Text); MemoGeraPacientesProcordis.lines.Append(MemoVaiParaPrescricao.Lines.Text); contlinha := MemoGeraPacientesProcordis.Lines.Count; while contlinha <> 0 do begin aux := MemoGeraPacientesProcordis.Lines[cont]; vai_arq := vai_arq + aux +';'; contlinha := contlinha - 1; cont := cont + 1; end; //*CRIA O TXT*// vaiTXTProcordis := ''; vaiTXTProcordis := vai_arq; //*FIM CRIA O TXT*// //*CRIA ARQUIVO TXT*// NOME_ARQ := 'PACIENTESLOCAL.txt'; CriarArquivo(NOME_ARQ,vaiTXTProcordis); //*FIM CRIA ARQUIVO TXT*// SHOWMESSAGE('PRESCRIÇÃO SALVA COM SUCESSO'); END; END;
  22. Annelise

    Janela - Poup Up

    <HEAD><script language="JavaScript"> <!-- function nirvana_positionWindow(theURL,winName,features) { //v2.0 window.open(theURL,winName,features); } //--> </script></HEAD> <body bgcolor="#FFFFFF" text="#000000" onLoad="nirvana_positionWindow('URL','NOME','width=500,height=500,left=55')"> ONDE COLOCO O NOME DA FIGURA OU PAGINA QUE QUERO QUE ABRA AKI.....? VALEU
  23. BOM....DIA... GOSTARIA DE SABER COMO POSSO LER UM TXT DE TRAS PRA FRENTE, OU SEJA,DO FINAL PRA O INICIO... OU COMO GRAVAR NO INICIO DO TXT. BRIGADA
  24. Annelise

    Foto - Upload

    blza..vou dar uma olhada,... brigadim
  25. Annelise

    PaginaÇao De Texto...

    outra duvida amigo.....esse codigo que voce me passou e paginação de arquivos....tipo (me corrija se estiver errada...obrigadim) dado 1 dado 2 dado 3 PROXIMA queria paginaçao de texto....tipo asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj asjfhaklçsdfhçaskldjfaklsdjfjlasdfklçasdjfklçasjdfklçjasdfkljsklfj PROXIMA
×
×
  • Criar Novo...