-
Total de itens
9.657 -
Registro em
Tudo que Jhonas postou
-
DDE - serve para fazer 2 micros comunicarem-se entre si exemplo http://www.delphibr.com.br/exemplos/dde.zip outros http://scriptbrasil.com.br/forum/index.php?showtopic=105999 http://www.lesauvage.com/DDEen.html http://sheepdogguides.com/dt4n.htm http://www.linhadecodigo.com.br/Artigo.aspx?id=448 exemplo http://www.activedelphi.com.br/forum/viewt...53a07e539b5353d abraço
-
voce vai ter muito trabalho http://scriptbrasil.com.br/forum/index.php?showtopic=165469 abraço
-
exemplo: program Notepad; uses Forms, UnitMain in 'UnitMain.pas'{FormMain}, Unit1 in 'Unit1.pas'{AboutBox}; {$R *.RES} begin Application.Initialize; Application.CreateForm(TFormMain, FormMain); Application.CreateForm(TAboutBox, AboutBox); Application.Run; end. unit UnitMain; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls; type TFormMain = class(TForm1) RichEdit1: TRichEdit; MainMenu1: TMainMenu; MenuFile: TMenuItem; ItemNew: TMenuItem; ItemOpen: TMenuItem; ItemSave: TMenuItem; ItemSaveAs: TMenuItem; N2: TMenuItem; ItemPrint: TMenuItem; N4: TMenuItem; ItemClose: TMenuItem; SaveDialog1: TSaveDialog; OpenDialog1: TOpenDialog; N1: TMenuItem; ItemFont: TMenuItem; FontDialog1: TFontDialog; PopupMenu1:TPopupMenu; ItemUndo: TMenuItem; N3: TMenuItem; ItemRedo: TMenuItem; ItemCut: TMenuItem; ItemCopy: TMenuItem; ItemPaste: TMenuItem; ItemDelete: TMenuItem; N5: TMenuItem; ItemSelectAll:TMenuItem; N6: TMenuItem; ItemFindText: TMenuItem; ItemFindAndReplace: TMenuItem; FindDialog1: TFindDialog; MenuEdit: TMenuItem; ItemUndo1:TMenuItem; ItemRedo1: TMenuItem; N7: TMenuItem; ItemCut1: TMenuItem; ItemCopy1: TMenuItem; ItemPaste1: TMenuItem; ItemDelete1: TMenuItem; N8: TMenuItem; ItemSelectAll1: TMenuItem; N9: TMenuItem; ItemFind1: TMenuItem; ItemFindAndPlace1: TMenuItem; N10: TMenuItem; ItemAutoWarp1: TMenuItem; N11: TMenuItem; ItemAutoWarp: TMenuItem; ReplaceDialog1: TReplaceDialog; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; procedure ItemNewClick(Sender: Tobject); procedure ItemOpenClick(Sender: Tobject); procedure ItemSaveClick(Sender: Tobject); procedure ItemPrintClick(Sender: Tobject); procedure ItemCloseClick(Sender: Tobject); procedure ItemFondClick(Sender: Tobject); procedure PopupMenu1Popup(Sender: Tobject); procedure ItemUndoClick(Sender: Tobject); procedure ItemRedoClick(Sender: Tobject); procedure ItemCutClick(Sender: Tobject); procedure ItemCopyClick(Sender: Tobject); procedure ItemPasteClick(Sender: Tobject); procedure ItemDelectClick(Sender: Tobject); procedure ItemSelectClick(Sender: Tobject); procedure ItemFindTextClick(Sender: Tobject); procedure FindDialog1Find(Sender: Tobject); procedure ItemAutoWarp1Click(Sender: Tobject); procedure ItemFindAndReplaceClick(Sender: Tobject); procedure ReplaceDialog1Replace(Sender: Tobject); procedure FormCreat(Sender: Tobject); procedure MenuFileClick(Sender: Tobject); procedure FromCloseQuery(Sender: Tobject; var CanClose: Boolean); procedure N14Click(Sender: Tobject); private sFileName:String; Function CheckhasModified:Boolean; Function SaveAsFile:Boolean; Function SaveFile:Boolean; Function MyOpenFile(FileName:String):Boolean; { Private declarations } public { Public declarations } end; var FormMain: TFormMain; implementation uses RichEdit,Unit1; {$R *.dfm} function TFormMain.CheckHasModified: Boolean; begin Result:=not RichEdit1.Modified; if not Result then begin Case Application.MessageBox('??????!??????','??', MB_YESNO+mB_ICONQUESTION) OF IDYES:Result:=SaveFile; IDNO:Result:=True; end; end; end; procedure TFormMain.ItemNewClick(Sender: TObject); begin If CheckHasModified Then begin RichEdit1.Lines.Clear; RichEdit1.Modified:=False; sFileName:='???'; end; end; function TformMain.SaveAsFile:Boolean; begin Result:=False; if SaveDialog1.Execute then begin RichEdit1.Lines.SaveToFile(SaveDialog1.FileName0; RichEdit1.Modified:=False; sFileName:=SaveDialog1.FileName; Result:=True; end; end; procedure TFormMain.ItemOpenClick(Sender: TObject); begin if OpenDialog1.Execute then MyOpenFile(OpenDialog1.FileName); end; Procedure TFormMain.ItemSaveClick(Sender: TObject); begin SaveFile; end; function TFormMain.SaveFile: Boolean; begin If sFileName='???' then Result:=SaveAsFile else begin RichEdit1.Lines.SaveToFile(sFileName); RichEdit1.Modified:=False; Result:=True; end; end; procedure TFormMain.ItemSaveAsClick(Sender:TObject); begin SaveAsFile; end; procedure TFormMain.ItemPrintClick(Sender:TObject); begin RichEdit1.Print(sFileName); end; procedure TFormMain.ItemCloseClick(Sender: TObject); begin Close; end; procedure TFormMain.ItemFontClick(Sender: TObject); begin FontDialog1.Font.Assign(RichEdit1.Font); if FontDialog1.Execute then RichEdit1.Font.Assign(FontDialog1.Font); end; procedure TFormMain.PopupMenu1Popup(Sender: TObject); begin ItemUndo.Enabled:=(RichEdit1.Perform(EM_CANUNDO,0,0<>0); ItemRedo.Enabled:=(RichEdit1.Perform(EM_CANREDO,0,0<>0); ItemCut.Enabled:=(RichEdit1.Perform(EM_SELECTIONTYPE,0,0)<>0); ItemCopy.Enabled:=ItemCut.Enabled; ItemPaste.Enabled:=(RichEdit1.Perform(EM_CANPASTE,0,0)<>0); ItemAutoWarp.Checked:=RichEdit1.WordWrap; ItemUndo1.Enabled:=(RichEdit1.Perform(EM_CANUNDO,0,0<>0); ItemRedo1.Enabled:=(RichEdit1.Perform(EM_CANREDO,0,0<>0); ItemCut1.Enabled:=(RichEdit1.Perform(EM_SELECTIONTYPE,0,0)<>0); ItemCopy1.Enabled:=ItemCut.Enabled; ItemPaste1.Enabled:=(RichEdit1.Perform(EM_CANPASTE,0,0)<>0); ItemAutoWarp1.Checked:=RichEdit1.WordWrap; end; procedure TFormMain.ItemUndoClick(Sender: TObject); begin RichEdit1.Perform(EM_UNDO,0,0); end; procedure TFormMain.ItemRedoClick(Sender:TObject); begin RichEdit1.Perform(EM_REDO,0,0); end; procedure TFormMain.ItemCutClick(Sender: TObject); begin RichEdit1.Perform(WM_CUT,0,0); end; procedure TFormMain.ItemCopyClick(Sender:TObject); begin RichEdit1.Perform(WM_COPY,0,0); end; procedure TFormMain.ItemPasteClick(Sender:TObject); begin RichEdit1.Perform(WM_Paste,0,0); end; procedure TFormMain.ItemDeleteClick(Sender: TObject); begin RichEdit1.Perform(WM_CLEAR,0,0); end; procedure TFormMain.ItemSelectAllClick(Sender: TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); FindDialog1.Position := P; FindDialog1.Execute; end; procedure TFormMain.FindDialog1Find(Sender: TObject); var FoundAt: LongInt; StartPos, ToEnd: Integer; st:TSearchTypes; begin with RichEdit1 do begin StartPos :=SelStart + SelLength; ToEnd := Length(Richedit1.Text) - StartPos; st:=[]; if frMatchCase in FindDialog1.Options then st:=st+[stMatchCase]; if frWholeWord in FindDialog1.Options then st:=st+[stWholeWord]; FoundAt := FindText(FindDialog1.FindText,StartPos,Toend,st); if FoundAt <> -1 then begin SelStart := FoundAt; SelLength := Length(FindDialog1.FindText); end else ShowMessage('????!') end; end; procedure TFormMain.ItemAutoWarp1Click(Sender: TObject); begin RichEdit1.WordWrap:=not RichEdit1.WordWrap; ItemAutoWarp1.Checked:=RichEdit1.WordWrap; ItemAutoWarp.Checked:=RichEdit1.WordWrap; end; Function TFormMain.MyOpenFile(FileName:String):Boolean; begin Result:=False; if CheckHasModified then begin try RichEdit1.Lines.LoadFromFile(FileName); RichEdit1.Modified:=False sFileName:=FileName; Result:=True; except on E:Exception do ShowMessage(E.Message); end; end; end; procedure TFormMain.ItemFindAndREplaceClick(Sender:TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); ReplaceDialog1.Position := P; ReplaceDialog1.Execute; end; procedure TFormMain.ReplaceDialog1Replace(Sender: TObject); Var P:TPoint; begin P:=Point(0,0); P:=RichEdit1.ClientToScreen(P); ReplaceDialog1.Position := P; ReplaceDialog1.Execute; end; procedure TFormMain.ReplaceDialog1Replace(Sender: TObject): var FoundAt: LongInt; StartPos, ToEnd: Integer; st:TSearchTypes; begin with RichEdit1 do begin StartPos := SelStart + SelLength; ToEnd := Length(RichEdit1.Text) - StartPos; st:=[]; if frMatchCase in ReplaceDialog1.Options then st:=st+[stMatchCase]; if frWholeWord in ReplaceDialog1.Options.then st:=st+[stWholeWord]; FoundAt := FindText(Replacedialog1.FindText, StartPos, ToEnd, st); While FoundAt <> -1 do begin SelStart := FoundAt; SelLength := Length(ReplaceDialog1.FindText); Perform(EM_REPLACESEL,1,Interger(PChar(Replacedialog1.ReplaceText))); SelStart := FoundAt; SelLength := Length(ReplaceDialog1.ReplaceText); if not (frReplaceAll in ReplaceDialog1.Options) then Break; StartPos:=SelStart; ToEnd := Length(RichEdit1..Text) - StartPos; FoundAt := FindText(ReplaceDialog1.FindText, StartPos,ToEnd,st); end; FoundAt:= FindText(ReplaceDialog1.FindText,StartPos,ToEnd,st); if FoundAt=-1 then ShowMessage('????!'); end; end; procedure TFormMain.FormCreate(Sender: TObject); Var s1FileName,TemStr,ParamString:String; i,FromIndex,ToIndex,iPox:Integer; Reg:TRegistry; begin try Reg:=TRegistry.Create; try Reg.RootKey:=HKEY_CLASSES_ROOT; Reg.OpenKey('*\shell\MyNotePad',True); Reg.WriteString('','????????'); Reg.CloseKey; Reg.OpenKey('*\Shell\MyNotePad\Command',True); Reg.WriteString('','"'+ParamStr(0)+'" "%1"'); Reg.CloseKey; finally Reg.Free; end; except end; if ParamCount>=1 then begin i:=1; ParamString:=ParamStr(i); While (ParamString[1]='/') and(i<=ParamCount) do begin Inc(i); ParamString:=ParamStr(i); end; FromIndex:=i; ParamString:=ParamStr(i); if ParamString[1]='/' then Exit; While i<=ParamCount do begin if ParamString[1]='/' then Break; Inc(i); ParamString:=ParamStr(i); end; ToIndex:=i; s1FileName:=GetCommandLine; ParamString:=ParamStr(FromIndex); iPos:=Pos(ParamString,s1Filename); TemStr:=ParamString; Delete(s1Filename,1,iPos-1+length(TemStr)); For i:=FromIndex+1 to ToIndex do begin ParamString:=ParamStr(i); iPos:=pos(ParamString,s1FileName); TemStr:=TemStr+copy(s1FileName,1,iPos+length(ParamString)); end; s1FileName:=TemStr; MyOpenFile(s1FileName); For i:=1 to ParamCount do begin if (ParamStr(i)='/p') or(ParamStr(i)='/p' then begin if Application.MessageBox('????','??',MB_YESNO+MB_ICONQUESTION) =IDYes then RichEdit1.Print(sFileName); Break; end; end end; end; procedure TFormMain.MenuFileClick(Sender: Tobject); begin ItemSave.Enabled:=RichEdit1.Modified; end; procedure TFormMain.FormCloseQuery(Sender: TObject; VAr CanClose:Boolean); begin CanClose:=not RichEdit1.Modified; if not CanClose then begin Case Application.MessageBox('??????!??????','??', MB_YESNOCANCEL+MB_ICONQUESTION) of IDYES:CanClose:=SaveFile; IDNo:CanClose:=True; end; end; end; procedure TFormMain.N14Click(Sender:TObject); begin AboutBox.showmodal; end; end. abraço
-
se está funcionando, não tem proximo passo... rs acontece que esse processo por vezes trava o acesso a internet, então uma vez que voce o mata, tudo volta a funcionar novamente abraço
-
se a imagem mostrada correponde ao seu modem da net a radio, faça o seguinte: 1 - PigTail ligado a antena da Net a radio 2 - use um cabo Ethernet ( cabo de rede ) para ligar a porta WAN a entrada WAN do roteador Wirelles 3 - use um cabo Ethernet para ligar a porta LAN a entrada LAN da sua placa de rede ( micro ) 4 - configure um nome e uma senha no roteador wireless ( siga o manual ) se fizer tudo correto o sinal da Net a radio estará sendo enviado e recebido pelo roteador wireless ( outros micros ligados a rede wireless ) OBS: verifique atraves dos leds do roteador .... não tem mistério se ainda assim não funcionar, verifique as conexões do cabo ( pode ter fio solto ou com mau contato ) abraço
-
ok... então leia esse post desse link http://www.mundowifi.com.br/forum/showthre...ull=1#post61128 o seu roteador não oferece a conexão adequada... voce vai precisar disso Roteador Wireless 3g C/ Modem 3g Integr. ou outro tipo de modem que tenha uma entrada para cabo pigtail e uma saida para cabo RJ-45 abraço
-
veja a figura 1 - conecte a saida da porta WAN da net a radio na entrada da porta WAN do roteador 2 - conecte 1 porta LAN do roteador a sua placa de rede no micro ( cabo de rede normal Ethernet ) 3 - configure o roteador de acordo com o manual, para voce criar a sua rede ( nome e senha ) OBS: cabo CrossOver só deve ser usado se voce estiver conectando um micro a outro sem o uso de um Hubb abraço
-
acontece que nenhum domínio .com.br funciona e alguns .com ficam perdidos também. ao matar esse processo, verifique se voce consegue acessar algum dominio .com.br obs: somente o primeiro da lista abraço
-
Desenvolvimento de uma Tabuada da Multiplicação em C++.
pergunta respondeu ao jotâo de Jhonas em Lógica de Programação
um exemplo que está no forum #include<stdio.h> #include<stdlib.h> /* Nome.........: GERADOR DE TABUADAS 1.0 Data.........: 02/09/2007 Desenvolvedor: Thiago C. Serrilho Email........: webserrilho@gmail.com Descrição....: Faz o calculo de tabuadas a partir de um numero inicial fornecido pelo usuário. É exibido na tela o cálculo de 8 tabuadas, no final é possivel retornar e fazer o calculo de outras tabuadas. */ main() { int n2,n1,cont; char resp; do { do { system("CLS"); printf(" ============== PROGRAMINHA PARA CALCULAR TABUADAS =============\n\n\n"); printf("Tabuada inicial: "); scanf("%d",&n1); system("CLS"); printf("=============================================================================\n"); if(n1>9000) { printf("\nOBS:\nPara fins de alinhamento, a tabuada inicial tera que ser do numero 0 (zero)\n"); printf("ate o numero 9000 (nove mil).\n\n"); printf("=============================================================================\n"); printf("Pressione \"enter\" para continuar..."); getchar(); getchar(); system("cls"); } }while(n1>9000); for(cont=1;cont<=10;cont++) { printf("%.2d x %.2d = %-5d | %.2d x %.2d = %-5d | %.2d x %.2d = %-5d | %.2d x %.2d = %-5d\n", n1,cont,n1*cont, n1+1,cont,(n1+1)*cont, n1+2,cont,(n1+2)*cont, n1+3,cont,(n1+3)*cont); } cont=1; printf("=============================================================================\n"); for(cont==1;cont<=10;cont++) { printf("%.2d x %.2d = %-5d | %.2d x %.2d = %-5d | %.2d x %.2d = %-5d | %.2d x %.2d = %-5d\n", n1+4,cont,(n1+4)*cont, n1+5,cont,(n1+5)*cont, n1+6,cont,(n1+6)*cont, n1+7,cont,(n1+7)*cont); } printf("=============================================================================\n"); printf("Deseja calcular outras tabuadas (s/n): "); scanf("%s",&resp); }while(resp=='s' || resp=='S'); system("CLS"); printf("Antes de terminar, responda essa perguntinha.\n"); printf("=============================================================================\n"); printf("Voce gostou do programa que calcula tabuadas (s/n): "); fflush(stdin); scanf("%s",&resp); if(resp=='s' || resp=='S') printf("Obrigado por baixar e utilizar este programa!\n\n\n"); else { printf("então VA JOGAR PACIENCIA!\n"); system("start sol.exe"); } printf("Pressione \"enter\" para finalizar..."); getchar(); getchar(); } abraço -
veja http://www.cshpforum.com/t7585-como-deixar...oguem-seu-habbo http://www.webcheats.com.br/forum/pt-tutor...ton-tale-8.html http://grandedown.forumeiros.com/t109-tuto...ar-um-habbo-v59 abraço
-
Ao reiniciar o serviço, tudo volta ao normal verifique no Gerenciador de Tarefas do Windows .... o processo svchost.exe #### NETWORK SERVICE fianlize o processo do primeiro que aparecer na lista abraço
-
se a antena é removível, é para receber o sinal ou enviar sinal ??? serve para os 2 processos ... enviar e receber sinal de radio Tenho um Roteador IntelBras WRN 240 e queria saber se ele pode receber o sinal de minha Net a radio... pode sim, desde que voce tenha uma saida WAN da sua Net a radio abraço
-
[AJUDA]"Un-Crypt", Descriptação de um executável.
pergunta respondeu ao Igor Ribeiro de Jhonas em Outras Linguagens de Programação
realmente existem maneiras de para extrair arquivos embutidos no executavel ... eu uso o Frhed , mas acho que para voce seria complicado caso queira, veja : http://www.superdownloads.com.br/download/51/frhed/ abraço -
mais minha duvida não é tão complexa o programa em si já esta todo criado, so falta essa parte de saida faça um while ou For para varrer os registros de saida, e substrair ( usando locate, ou select ) dos registros do cadastro de produtos, onde a referencia seria o código do produto abraço
-
Error connecting with SSL. Erro de conexão com SSL veja a solução dada Se você quiser usar SSL sem alterar seu código existente, então você pode anexar um TIdSSLIOHandlerSocket ao TIdTCPClient e um TIdServerIOHandlerSSL ao TIdTCPServer, e depois instalar Indy custom-made OpenSSL DLLs voce deve ler um pouco mais http://www.cryer.co.uk/glossary/s/ssl.htm abraço
-
Relatorio QR lendo conteudo arquivo texto
pergunta respondeu ao Alexandre_Rangel de Jhonas em Delphi, Kylix
Voce pode usar o componente QRMemo procedure TForm1.Button1Click(Sender: TObject); begin QRMemo1.Lines.LoadFromFile('C:\seu_arquivo_de_texto'); end; OBS: Existem outras maneiras para obter o mesmo resultado abraço -
Faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ite=findreplace http://scriptbrasil.com.br/forum/index.php...lite=finddialog abraço
-
então veja http://borland.newsgroups.archived.at/publ...7020910523.html abraço
-
exemplos http://www.example-code.com/delphi/socket.asp especificamente ao seu caso, no seu IdSMTP na propriedade IOHandler voce liga o IdSSLIOHandlerSocket e salva essas DLLs na pasta do sistema. outro exemplo http://www.planetadelphi.com.br/dica/7280/...e-visual---ssl- abraço
-
o que voce esta fazendo é isso Criar uma variavel savefile que armazena o nome de um arquivo, pqfile.mat. Salvar duas variáveis para o arquivo. savefile = 'pqfile.mat'; p = rand(1, 10); q = ones(10); save(savefile, 'p', 'q') se voce traduzir a página, conseguirá fazer o que esta querendo .... abraço
-
veja http://scriptbrasil.com.br/forum/index.php...st&p=627783 ou faça uma pesquisa no forum http://scriptbrasil.com.br/forum/index.php...ite=dbnavigator abraço
-
é sim ... mas a idéia é a mesma para o delphi então veja http://www.netosdesalim.com.br/controle-de...lbert-eije.html abraço
-
o cabo que sai do modem ( LAN ) deve ser ligado a entrada ( WAN ) do router para o restante da configuração, veja o manual abraço
-
exemplo https://www.scriptbrasil.com.br/download/codigo/7545/ abraço
-
[AJUDA]"Un-Crypt", Descriptação de um executável.
pergunta respondeu ao Igor Ribeiro de Jhonas em Outras Linguagens de Programação
O problema é que preciso de um arquivo que encryptei e deletei os files, só fiquei com o executável e agora estou precisando dos arquivos.... OBS: de acordo com o manual, voce deveria ter guardado os arquivos, pois ele não tem um comando para extrair os arquivos o executavel abraço