xcel3nt

Bem... aquele erro já foi consertado.. agora apareceu outro... is Variable 'janelaprincipal' is declared but never in TjanelaPrincipal.form Type of expression must beem booleam Record, object of class type required

Bem.. o erro mesmo está no..... Lancamento : boolean; diz que esse : esta errado... expected but ' : ' found type expected but ' END ' found Undeclared identifier ' Lancamento '

Bem.. to começando com delphi.. dai to tendo dificuldade num programa aki... ve se alguém pode me dá uma força ai ! Ta dando erro sempre que vou compilar.. e diz que um " end; " esta errado.. um após o " type " mas se tiro ele dá " var " errado... e numa declaração de variavel ele ta dando o " : " errado também.. dái não consegui mais seguir adiante... unit JanPrinc; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls; type TJanelaPrincipal = class(TForm) MainMenu1: TMainMenu; Opes1: TMenuItem; Alugar1: TMenuItem; Devolver1: TMenuItem; N1: TMenuItem; Sair1: TMenuItem; TituloNumCli: TLabel; EditNumCli: TEdit; MemoOcorrencias: TMemo; BtVerTitulos: TButton; CheckDisponiveis: TCheckBox; ListTitulos: TListBox; ComboGeneros: TComboBox; RadioLanc: TRadioButton; RadioNlanc: TRadioButton; GroupBox1: TGroupBox; RadioTodos: TRadioButton; procedure Alugar1Click(Sender: TObject); procedure Sair1Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure BtVerTitulosClick(Sender: TObject); private { Private declarations } public { Public declarations } end; var JanelaPrincipal: TJanelaPrincipal; implementation {$R *.dfm} procedure TJanelaPrincipal.Alugar1Click(Sender: TObject); var linha : string; begin if (EditNumCli.Text<> '') then begin linha :='Cliente '+EditNumCli.Text+' alugando fita(s)'; MemoOcorrencias.Lines.Add(linha); EditNumCli.Text := ''; end else ShowMessage('Informe um número de clientes antes'); end; procedure TJanelaPrincipal.Sair1Click(Sender: TObject); begin beep; close; end; procedure TJanelaPrincipal.FormCreate(Sender: TObject); type Tfita = record Titulo : string; Qtdisp : ShortInt; Genero : string Lancamento : boolean; end; var JanelaPrincipal: TjanelaPrincipal; Fitas : array[1..100] of Tfita; begin Fitas[1].Titulo := 'Velozes e Furiósos'; Fitas[1].Qtdisp := 3; Fitas[1].Genero :='Ação'; Fitas[1].Lancamento := false; Fitas[2].Titulo :='Xuxa e os Duendes'; Fitas[2].Qtdisp := 1; Fitas[2].Genero := 'Infantil'; Fitas[2].Lancamento := true; Fitas[3].Titulo := 'O professor Aloprado'; Fitas[3].Qtdisp := 3; Fitas[3].Genero := 'Comédia'; Fitas[3].Lancamento := true; Fitas[4].Titulo := 'CasaBlanca'; Fitas[4].Qtdisp := 0; Fitas[4].Genero := 'Clássico'; Fitas[4].Lancamento := false; end; procedure TJanelaPrincipal.BtVerTitulosClick(Sender: TObject); var i : integer; mostralanc : boolean; mostraTodos : boolean; begin mostraLanc := false; mostraTodos := false; ListTitulos.clear; if (RadioTodos.Checked := true) then mostraTodos := true else if (RadioLanc.Checked = true) then mostraLanc := true; for i:=1 to 100 do begin if (fitas[i].genero = combogeneros.Text) and ((mostratodos = true) or (fitas[i].lancamento = mostralanc)) then begin if (Ckdisponiveis.checked = true) then begin if (fitas[i].Qtdisp > 0) then listTitulos.Items.add(fitas[i].TituloNumCli); end else listTitulos.Items.add(Fitas[i].Titulo); end; end; end; end. Postem onde esta o erro ai.. valeu !!!!

o sygate tem a versão free do seu firewall.. o sygate personal firewall... basta pesquisa em www.sygate.com que você axará...

Bem... não focou muito clara sua solicitação... vejamos: Você quer uma lista de sites restritos para adicionar ao seu browser? é isso? bem se for isso.. creio que não existe uma lista específica.. pois essa opção serve para você bloquear site que VOCÊ queira restringir o acesso... Dai isso é com você !

Olá a todos... Bem, mexo com delphi mas apenas voltado para bancos de dados.. penas sei criar aplicações.. mas me complico quando vou pegar uma aplicação já criada do tipo... function ChecaCEP(cCep:String; cEstado:String): Boolean; var cCEP1 : Integer; begin cCep := copy(cCep,1,5) + copy(cCep,7,3); cCEP1 := StrToInt(copy(cCep,1,3)); if Length(trim(cCep)) > 0 then begin if (StrToInt(cCep) <= 1000000.0) then begin MessageDlg('CEP tem que ser maior que [01000-000]',mtError,[mbOk],0); Result := False end else begin if Length(trim(copy(cCep,6,3))) < 3 then Result := False else if (cEstado = 'SP') and (cCEP1 >= 10 ) and (cCEP1 <= 199) then Result := True else if (cEstado = 'RJ') and (cCEP1 >= 200) and (cCEP1 <= 289) then Result := True else if (cEstado = 'ES') and (cCEP1 >= 290) and (cCEP1 <= 299) then Result := True else if (cEstado = 'MG') and (cCEP1 >= 300) and (cCEP1 <= 399) then Result := True else if (cEstado = 'BA') and (cCEP1 >= 400) and (cCEP1 <= 489) then Result := True else if (cEstado = 'SE') and (cCEP1 >= 490) and (cCEP1 <= 499) then Result := True else if (cEstado = 'PE') and (cCEP1 >= 500) and (cCEP1 <= 569) then Result := True else if (cEstado = 'AL') and (cCEP1 >= 570) and (cCEP1 <= 579) then Result := True else if (cEstado = 'PB') and (cCEP1 >= 580) and (cCEP1 <= 589) then Result := True else if (cEstado = 'RN') and (cCEP1 >= 590) and (cCEP1 <= 599) then Result := True else if (cEstado = 'CE') and (cCEP1 >= 600) and (cCEP1 <= 639) then Result := True else if (cEstado = 'PI') and (cCEP1 >= 640) and (cCEP1 <= 649) then Result := True else if (cEstado = 'MA') and (cCEP1 >= 650) and (cCEP1 <= 659) then Result := True else if (cEstado = 'PA') and (cCEP1 >= 660) and (cCEP1 <= 688) then Result := True else if (cEstado = 'AM') and ((cCEP1 >= 690) and (cCEP1 <= 692) or (cCEP1 >= 694) and (cCEP1 <= 698)) then Result := True else if (cEstado = 'AP') and (cCEP1 = 689) then Result := True else if (cEstado = 'RR') and (cCEP1 = 693) then Result := True else if (cEstado = 'AC') and (cCEP1 = 699) then Result := True else if ((cEstado = 'DF') or (cEstado = 'GO')) and (cCEP1 >= 700)and(cCEP1 <= 769)then Result := True else if (cEstado = 'TO') and (cCEP1 >= 770) and (cCEP1 <= 779) then Result := True else if (cEstado = 'MT') and (cCEP1 >= 780) and (cCEP1 <= 788) then Result := True else if (cEstado = 'MS') and (cCEP1 >= 790) and (cCEP1 <= 799) then Result := True else if (cEstado = 'RO') and (cCEP1 = 789) then Result := True else if (cEstado = 'PR') and (cCEP1 >= 800) and (cCEP1 <= 879) then Result := True else if (cEstado = 'SC') and (cCEP1 >= 880) and (cCEP1 <= 899) then Result := True else if (cEstado = 'RS') and (cCEP1 >= 900) and (cCEP1 <= 999) then Result := True else Result := False end; end else begin Result := True; end end; Esse é um exemplo.. as vezes tento colocar uma programação já pronta só q não consigo finalizalá.. sei q falta a parte de colocar o aplicativo no form e esses detalhes, e sempre q declaro variaveis junto ao form. sempre dá erro de não identificado.. alguém sabe uma solução para esse contra-tempo... ????

Dê uma atualizada no antivirus.. scaneia o sistema todo.. use scans de worm... etc...

Negócio é instala um firewall e verificar as saídas de dados tb.. um gerenciador de coockies tb sria uma ótima opção!

Para evitar q isso aconteça.. faça update de seu anti-virus periodicamente!

Bem.. alguma dicas simples que podem ajudar a diminuir os riscos de ataque contra seu servidor.. 1. politica de senhas consistente 2. um sistema de firewall bem configurado 3. manter o sistema e os softwares constantemente atualizados 4. updates contínuos de seu anti-virus 5. nada de configuração padrão deverá ser usado nos recursos acima! se você seguir essas 5 dicas.. você diminuirá bastante os riscos de um ataque!bem era isso.. até+

Bem.. na verdade esse code q você colocou ele envia usando oproprio sistema um a rquivo especifico... o que eu tava mesmo querendo é q os dados dos Edits que seja enviado... e sem ter q configurar o endereço que irá enviar... apenas o que vai receber... tipo um mailto:e-mailreceptor@bol.com.br valeu!

Bem.. to fazendo um programa simples.. onde possui 4 edits.. nos quais queriam que os dados preenchidos nos edits, seriam enviados para meu e-mail... se alguém souber como posso fazer isso agradeceria muito... ai vai o codigo de como ta o "programa" hehehe... unit cadastro; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, jpeg, ExtCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button1: TButton; Image1: TImage; procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin end; end.

só se fizeram um fakemail usando seu e-mail... mas é como o eddie_666 falow.. é prudente você passar anti-virus ae...

1º isso é coisa de Cracker/Carder.. beleza.. Bem.. É como o caso dos bancos.. a receita em hipótese alguma envia e-mails para esse tipo de coisa... Em caso de duvida.. entre em contato via telefone.... mas a grande maioria ainda não conhece dos riscos.. é precisa uma reeducação sobre esse tipo de coisa...

O principal.. que você deve sempre lembrar... O BANCO EM HIPÓTESE ALGUMA ENVIA E-MAIL AOS CORRENTISTAS.... É aconselhavél tb utilizar serviço de internet banking apenas se não houver outra opção a ser tomada... e caso aconteça algo no qual você tenha dúvidas de sua veracidade.. procure entrar em contato com o banco para esclarecimento de duvidas via telefone, ou pessoalmente se possivel !!!!

Cara.. trojan house.. esse tipo de coisa costuma se instala na inicialização do windows... tente editar o a rquivo win.ini e verifique se tem algo na linha RUN... ou pelo regedit seguindo as pastas HKEY_LOCAL_MACHINE -> SOFTWARE -> MICROSOFT -> WINDOWS -> CurrentVersion -> RUN !!! na pasta RUN você verificará os arquivos q iniciam ao carregar o windows.. se notar algum arquivo estranho q você axar q seja o trojan delete... e depois sai a caça deleno sistema... outra opção é instalar um firewall, eu recomendo o Sygate Personal Firewal PRO que posse ser encontrado em http://www.sygate.com atrave z do sygate você pode controlar e visualizar quais programas estão em uso no sistema... caso você ver um arquivo q não seja do sistema, basta bloquea-lo.. e a partir dai sai a caça e deleta-lo do sistema !

Bem.. como nossa cultura acima citou... o cavalo de tróia é um presente de grego uhauhaua... bem... o cavalo-de-troia nada mais é do que um programa cliente servidor, que ao ser executado o server(servidor) ele abre uma porta específica para que o cliente(invasor no caso) possa acessar sua máquina... o que ele causa no seu pc é justamente deixar essa porta (que varia de acordo com o programa) aberta no seu pc.. possibilitando que outas pessoas possam acessa remotamente sua máquina... esse tipo de programa teve esse apelido (cavalo-de-troia) justamente porque ele vinha geralmente anexados juntos a outros arquivos... faz endo assim a infecção da maquina alvo sem menor suspeita... flwz !!!!

eu uso o corel 9 e sou iniciante.. pois bem.. após ter terminado a figura, eu queria salvar na opção .jpg, só que não tinha JPG como opção a ser salva.. por onde que eu faço pra salvar a imagem como JPG ????

alguém algum script q faça os dados preenchidos sejam enviados pra algum formulário em outra web ? tipo.. preencher formulario em java..... e enviar para algum PHP em outra localidade !

Dizem as noticias q o AVAST é mais pratico e mais rapido que o AVG, e nos testes ele teve um bom des empenho na verificação/remoção/reparo de arquivos infectados, não ficando pra trás dos grandes anti-virus !

tem o http://www.securenet.com.br (largado às moscas) hehehe se bem que ... sites realmente bons sobre segurança no brasil esta escasso.. o que ue pode encontrar mais são forum como esse aki mesmo... como o www.community4dev.org, tem o eee.totalsecurity.com.br tb.. e por ai vai !!!!

pow.. um q constumo sempre da uma passada pra ver o que rola é no www.securityfocus.com...

Bem atuo na area de segurança.. crio politicas de seguranças tanto a usuarios normais quanto empresas... faço trabalho autonomo... crio programas em delphi, VB, C, dou uma brincada fazendo uns code em MRC, disponibilizo treinamento personalizado a segurança e internet via mail... faço consultorias etc... qualquer coisa send-me mail =))

vai em painel de controle... no adicionar e remover programa... e desinstala td q você axar estranho.. e q não faz parte do sistema... isso é worm xato pacarai

Bem.. existe um programa free da lavasoft.. o ad-aware que scaneia o sistema atraz de spywares... ele elimina os cookies que são identificados.. você t pode escolher a opção para deixa-los em quarentena.. mas apesar do soft fazer o bagulho por si só.. é sempre bom você da uma configurada como o eddie_666 citou...