Boletim Pascal #38
Os exemplos do código fonte desta edição estão disponíveis para download.
 |
 |
Boletim Pascal #38 - 31 DE JULHO DE 2002 ÍNDICE 1. ALGUMAS PALAVRAS DOS EDITORES 2. PROBLEMAS DE PERFORMANCE EM TCOLLECTION (DELPHI 3,4,5) 3. DESFAZER E REFAZER UTILIZANDO COMANDOS 4. RECUPERAR O NOME DO HOST A PARTIR DE UM ENDEREÇO IP 5. FÓRUMS 6. DELPHI NA REDE - Sites em português - Componentes, Bibliotecas e Utilidades . Shareware/Comercial . Freeware - Artigos, Dicas e Truques . Kylix - Tutoriais - Outros Links ________________________________________________________________________ 1. ALGUMAS PALAVRAS DOS EDITORES Editorial da Versão em Português ================================ Novamente eu aqui, pessoal, pedindo desculpas por mais um atraso. Parece uma regra, não? Bem, dessa vez eu garanto que o número 39 ainda não chegou m minhas mãos. De qualquer forma, agora as coisas estão voltando a seus estado normal de temperatura e pressão e atrasos desse tipo não devem mais acontecer. No último editorial, antecipei uma surpresa para o número seguinte do boletim, mas mal sabia eu que a versão em inglês já estava pronta e nada mais tinha a fazer. Bom, minha expectativa real é ter algo de interessante para o número 40 do boletim. E chega de promessas! Agora chega de conversa. Divirtam-se com nosso boletim! Demian Lessa demian@knowhow-online.com.br editor da versão em português Editorial da Versão em Inglês ============================= Gostaria de expressar meu agradecimento a William Egge por contribuir com seu artigo "Desfazer e Refazer Utilizando Comandos" para esse número e fico feliz de premiá-lo com o CD Delphi Information Library (DIL CD), um grande recurso de informações com artigos, dicas, truques, componentes, javascripts, imagens, update packs e muito mais, oferecido pelo grupo de usuários da Borland, UK: http://www.richplum.co.uk/html/dil.asp Gostaria também de agradecer a Clever Components Support Team por sua contribuição do artigo "PROBLEMAS DE PERFORMANCE EM TCOLLECTION (DELPHI 3,4,5)" também para esse número e fico feliz de premiá-los com uma licença do AnyShape Transpack v2.0, componente para criação de janelas transparentes em vários formatos com edição WYSIWYG, visualização em tempo de desenvolvimento, arrasto automático e formulários stay-on-top REAIS, entre outras funcionalidades, fornecido por MindBlast Software: http://www.mindblastsoftware.com/?page=transpack&ref=PascalNL Estive doente recentemente e por isso peço desculpas por não escrever outra parte da série de artigos sobre assembler em Delphi. Como muitos provavelmente já sabem, a Borland lançou o Kylix 3 na semana passada com suporte para C++. Nesse passo, em 18 meses a versão do Kylix será superior à do Delphi! :-) Você acha que a Borland está acertando ou que estão lançando versões do Kylix muito próximas? Gostaríamos de ouvir seus comentários a respeito. Ernesto De Spirito pascal-newsletter-owner@yahoogroups.com ________________________________________________________________________ JfControls Library. Multi-language. Multi-appearance. Skins. Privileges. More than 40 integrated and customizable components. Impressive GUI. Centralized resources administration. Multiple programming problems solved. For Delphi 3-6 and C++ Builder 3-5. http://www.jfactivesoft.com/ ________________________________________________________________________ 2. PROBLEMAS DE PERFORMANCE EM TCOLLECTION(DELPHI 3,4,5) Por Clever Components Support Team <info@CleverComponents.com> Para maiores detalhes, veja o artigo original da Clever Components: http://www.clevercomponents.com/articles/article008/collectionperf.asp Se você está utilizando classes de TCollection nas suas aplicações Delphi 3, 4 ou 5, então você achará esse artigo algo quanto interessante. Primeiramente vamos testar um trecho de código razoavelmente simples: procedure TForm1.Button1Click(Sender: TObject); var old: TCollection; i: integer; begin old := TCollection.Create(TCollectionItem); for i := 0 to 100000 do begin old.Add; end; Windows.beep(900, 1000); // bipe de alta freqüência após a inclusão // dos itens old.Free; Windows.beep(100, 1000); // bipe de baixa freqüência após a // destruição dos itens end; Você pode imaginar que o bipe de baixa freqüência seguirá o de alta freqüência imediatamente (afinal, o que pode ser mais rápido do que destruir os itens de uma coleção?)- mas não segue! De fato, há uma demora de 10-20 segundos para a destruição da coleção contendo milhares de itens- e pior, sua CPU estará 100% ocupada. Nós nos deparamos com esse problema quando um cliente reclamou que uma aplicação "congelava o PC por alguns minutos". Para entender porque isso acontece, você precisa dar uma olhada mais detalhada nos métodos Destroy, SetCollection e RemoveItem de TCollection, que se encontram em Classes.pas- o último é chave para entender nosso problema. Você pode também querer comparar a versão de seu TCollection.RemoveItem com a versão do Delphi 6: { Classes.pas do Delphi 6 } procedure TCollection.RemoveItem(Item: TCollectionItem); begin Notify(Item, cnExtracting); if Item = FItems.Last then FItems.Delete(FItems.Count-1) // corrige o problema original else FItems.Remove(Item); Item.FCollection := nil; NotifyDesigner(Self, Item, opRemove); Changed; end; Agora você provavelmente irá querer corrigir o problema. Mas parece não ser tão fácil pois TCollection.RemoveItem não é virtual tampouco dinâmico. Aqui vão duas soluções: Você terá que alterar Classes.pas e trocar o TCollection.RemoveItem pela versão do Delphi 6. Copie a nova versão (corrigida) de Classes.pas no diretório de seu projeto e coloque na primeira posição da cláusula uses de seu projeto: program Project1; uses classes in 'classes.pas' // nova Classes.pas com // RemoveItem corrigido Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end. Agora seu projeto será compilado com a nova versão de TCollection. Em algumas situações não é tão conveniente ou mesmo possível utilizar uma versão alterada de Classes.pas. Nesse caso, temos um outro truque para você. type { TFixCollection - corrige TCollection.RemoveItem nos Delphi 3,4,5 } TFixCollection = class(TCollection) public { Infelizmente, Clear não é virtual nem dynamic portanto temos que reintroduzi-lo } procedure Clear; destructor Destroy; override; end; procedure TFixCollection.Clear; var i: integer; AList, OrgList: TList; begin AList := TList.Create; try OrgList := TList(PDWORD(DWORD(Self) + $4 + SizeOf(TPersistent))^); { Guarde os ponteiros originais para os itens da coleção } for i := 0 to OrgList.Count-1 do AList.Add(OrgList[i]); OrgList.Clear; { Destrua os itens da coleção } for i := 0 to AList.Count-1 do TCollectionItem(AList[i]).Free; finally AList.Free; end; inherited; end; destructor TFixCollection.Destroy; begin Clear; inherited; end; { Vamos tentar novamente! } procedure TForm1.Button2Click(Sender: TObject); var old: TFixCollection; i: integer; begin old := TFixCollection.Create(TCollectionItem); for i := 0 to 100000 do old.Add; Windows.beep(900, 1000); // bipe de alta freqüência após a inclusão // dos itens old.Free; Windows.beep(100, 1000); // bipe de baixa freqüência após a // destruição dos itens end; Como você pode comprovar, agora funciona bem. Utilizamos um truque que nos dá acesso aos membros protegidos de TCollection. Você pode utilizar ambas as técnicas apresentadas em suas aplicações escritas nos Delphi 3, 4 e 5. Para sua conveniência, o exemplo de performance de TCollection para os Delphi 3, 4 e 5 está no arquivo anexado. Clever Components Support Team http://www.CleverComponents.com info@clevercomponents.com ________________________________________________________________________ 3. DESFAZER E REFAZER UTILIZANDO COMANDOS Por William Egge egge@eggcentric.com Visite Eggcentric em http://www.eggcentric.com Existem duas formas de desfazer/refazer: uma baseia-se em estados e a outra utiliza comandos. Esse artigo utiliza comandos e oferece o código fonte da implementação de um gerenciador undo/redo TUndoRedoManager. Esse artigo irá cobrir: 1. Comandos 2. Requisitos de um comando 3. Pilha de comandos 4. Gerenciador undo/redo 5. Agrupamento de comandos 6. Código fonte completo da solução Um comando é simplesmente um objeto que implementa uma ação no sistema, por exemplo, um programa de desenho pode implementar um comando de linha, círculo, retângulo e assim por diante. Para implementar o undo/redo com base em comandos é preciso projetar seu projeto para utilizar os objetos de comando nas suas tarefas. Já que queremos desfazer e refazer os efeitos dos vários comandos, os próprios comandos deve ser capazes de desfazer e refazer suas ações assim como realizar a ação inicial. Os métodos principais de um comando são: - Execute - Undo - Redo Você pode imaginar o porquê da separação do Redo e o Execute. Isso se deve ao fato de que a implementação do refazer pode ser distinta daquela da ação inicial (Execute). Por exemplo, considerando o programa de desenho, o Execute poderia selecionar o Brush e seguir algum algoritmo de desenho para exibir um círculo transparente de forma gradual. O Redo poderia simplesmente copiar o resultado do desenho original ao invés de desenhar tudo novamente. Qualquer que seja o caso, se essa funcionalidade não for necessária numa dada implementação, basta chamar o Execute a partir de sua implementação. OK, agora temos um comando. Precisamos lembrar a seqüência de comandos de modo a permitir undo/redo em vários níveis. Essa funcionalidade é implementada pela pilha de comandos. Quando você desfaz, você remove o último comando da pilha e chama seu método Undo. A próxima vez que você desfizer, você chama o método do segundo comando a partir do tipo, e assim por diante. Quando você refaz, você chama o método Redo do último comando sobre o qual você desfez. Para simplificar, criamos duas listas, uma lista de comandos desfeitos e outra de comandos que podem ser refeitos, e as encapsulamos no gerenciador de comandos. Para o gerenciador, definimos três métodos: ExecuteCommand(Comando) Undo Redo Internamente, o gerenciador manterá duas listas de comandos, Undo e Redo. Aqui está a seqüência completa: 1. Execute um comando passando-o para o método ExecuteCommand; internamente o UndoRedoManager vai chamar o método Execute do comando e então adicionar o comando ao topo da lista de undo. 2. Chamando undo, o gerenciador removerá o último comando da lista de undo, chamará seu método undo e então removerá o comando da lista undo, e o enviará para a lista de redo. 3. Chamando redo irá causar o oposto do último undo: o comando será retirado da lista redo, terá seu método redo chamado e então será enviado ao topo da lista undo novamente. 4. Agora, quando o próximo ExecuteCommand é chamado, nós temos que ajustar a lista redo... excluir todos os comandos nela. Algumas vezes, ou na maioria delas, ,você executará uma série de comandos como um grupo único. Chamar undo e redo deverá desfazer e refazer o grupo de ações e não os comandos individuais um por vez. Um exemplo pode ser um tipo de assistente que realiza inúmeras tarefas e que você gostaria que pudesse ter suas ações desfeitas e refeitas como um grupo. Dois métodos serão acrescentados ao UndoRedoManager: BeginTransaction EndTransaction Todos os comandos executados entre as chamadas a BeginTransaction e EndTransaction serão armazenados como um grupo. Você deve permitir chamadas aninhadas a esses métodos. Utilizando herança, isso é fácil de implementar. Fazemos uma classe de grupo de comando que hera da classe comando; assim o gerenciador irá agir como se estivesse trabalhando com um único comando. Em anexo encontra-se o código completo do UndoRedoManager juntamente com interfaces para IUndoRedoCommand e IUndoRedoCommandGroup. Nota: Eu acho que muitos de nós pensamos nas interfaces Delphi como relacionadas a ActiveX ou COM. Isso não é verdade: você pode criar classes que implementam interfaces e que não tem qualquer implementação COM ou ActiveX. Essas classes não exigem qualquer forma de registro ou qualquer outra ação exigida de COM ou ActiveX. Você deve lembrar-se que interfaces são contadas por referência e que são automaticamente liberadas quando essa contagem atinge zero. O código fonte está anexado no arquivo zip. ________________________________________________________________________ 4. RECUPERAR O NOME DO HOST A PARTIR DE UM ENDEREÇO IP Por Ernesto De Spirito <eds2004 @ latiumsoftware.com> Se tivermos um endereço IP numa string (como '207.105.75.31') e quisermos saber qual o nome do host associado, podemos utilizar a API GetHostByAddr da biblioteca Windows Sockets ("Winsocks") 1.1 ou mais nova. A função a seguir encapsula as chamada de API. uses WinSock; function GetHostByAddr(IP: string): string; var WSData: TWSAData; SockAddrIn: TSockAddrIn; HostEnt: PHostEnt; begin Result := ''; // Tente inicializar uma seçao winsock if WSAStartup($101, WSData) = 0 then begin // Converta a string IP em bytes, na ordem correta do endereço IP SockAddrIn.sin_addr.S_addr := inet_addr(PChar(IP)); // Chame GetHostByAddr HostEnt := WinSock.GetHostByAddr(@SockAddrIn.sin_addr.S_addr, SizeOf(SockAddrIn.sin_addr.S_addr), AF_INET); // Se bem sucedido... if HostEnt <> nil then // ...recupere o nome do host (valor de retorno) Result := StrPas(Hostent^.h_name); // Feche a seção winsock WSACleanup; end; end; Chamada de exemplo: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage(GetHostByAddr('207.105.75.31')); end; ________________________________________________________________________ 5. FÓRUMS Para juntar-se a qualquer um de nossos fóruns de discussão, a melhor forma é assinar através da web, já que dessa forma você poderá acessar todas as funcionalidades disponíveis no site (como alterar suas opções de assinatura, visualizar mensagens passadas, baixar arquivos, etc.). Um ID Yahoo! é necessário para isso e você pode adquirir o seu de forma gratuita registrando-se como um usuário Yahoo! Mas se você não deseja registrar-se ou se não tem acesso completo à Internet, você pode fazer sua assinatura por e-mail (basta ter acesso a uma conta de e-mail). Delphi (em Português) ===================== Participe da lista de discussão do Grupo Delphi-BR e faça parte da mais profissional lista Delphi do Brasil. Essa lista tem como objetivo a troca de informações entre os diversos programadores Delphi em lingua portuguesa. Aqui você encontrará grandes programadores brasileiros dando suas contribuições para a comunidade e mantendo uma via de comunicação entre todos os programadores Delphi brasileiros. http://br.groups.yahoo.com/group/delphi-br/ Se você quer juntar-se ao grupo, a melhor forma é assinar a partir da web, uma vez que pode acessar as funcionalidades especiais disponíveis no site web (um ID Yahoo! é necessário; você pode obter um gratuitamente registrando-se como um usuário Yahoo!) mas, se você não quer registrar-se ou se não possui acesso Internet completo, você também pode assinar por email: http://br.groups.yahoo.com/group/delphi-br/join delphi-br-subscribe@yahoogrupos.com.br Delphi (em Inglês) ================== Se você sabe bastante Delphi mas está longe de ser um guru, esse fórum é para você. Esse é o único fórum para programadores Delphi em nível intermediário na Web (experts Delphi também são bem-vindos :-)). O fórum conta atualmente com mais de 700 membros e, em abril último, teve um tráfego de pouco mais de 450 mensagens: http://groups.yahoo.com/group/delphi-en Se você quer juntar-se ao grupo, a melhor forma é assinar a partir da web, uma vez que pode acessar as funcionalidades especiais disponíveis no site web (um ID Yahoo! é necessário; você pode obter um gratuitamente registrando-se como um usuário Yahoo!) mas, se você não quer registrar-se ou se não possui acesso Internet completo, você também pode assinar por email: http://groups.yahoo.com/group/delphi-en/join delphi-en-subscribe@yahoogroups.com Kylix (em Inglês) ================= Programação Kylix em geral. http://groups.yahoo.com/group/KylixGroup/ Conto com sua participação no fórum para nos ajudar a crescer. Você pode assinar pela web ou, mais facilmente, por e-mail: http://groups.yahoo.com/group/KylixGroup/join KylixGroup-subscribe@yahoogroups.com Componentes (em Inglês) ======================= Esse é um fórum para pesquisa/recomendação de componentes de software (componetes VCL e CLX, objetos ActiveX, DLLs, SOs, etc.), assim como utilitários, tutoriais, informações, etc. O fórum é novo e tem cerca de 160 membros e tráfego muito baixo: http://groups.yahoo.com/group/components/ Conto com sua participação no fórum para nos ajudar a crescer. Você pode assinar pela web ou, mais facilmente, por e-mail: http://groups.yahoo.com/group/components/join components-subscribe@yahoogroups.com Desenvolvedores de Software (em Inglês) ======================================= Esse é um fórum para discussões sobre o desenvolvimento de software e para a troca de experiências de trabalho em ambientes profissionais e comerciais. Esse não é um fórum sobre programação; os assuntos abordados são mais gerais e independentes de linguagem de programação. http://groups.yahoo.com/group/software-developers/ Conto com sua participação no fórum para nos ajudar a crescer. Você pode assinar pela web ou, mais facilmente, por e-mail: http://groups.yahoo.com/group/software-developers/join software-developers-subscribe@yahoogroups.com ________________________________________________________________________ 6. DELPHI NA REDE Por Dave Murray <irongut @ vodafone.net> Sites em português ================== * Comunidade Delphi de Rio Preto Portal com componentes, novidades, artigos, links e mais. http://www.delphirp.com.br/ * Planet Delphi Site brasileiro especializado em componentes para Delphi. Download grátis. http://www.fprass.hpg.ig.com.br/ * Delphi Company Site do Fernando Gonçalves dedicado ao mundo Delphi http://www.delphicompany.hpg.ig.com.br/ * IntereSite Tudo sobre Delphi http://www.ulbrajp.com.br/~tecnobyte/ * Advanced Developers Delphi, productos, novidades, consultoria... http://www.adev.com.br * Fórum Delphi-BR http://br.groups.yahoo.com/group/delphi-br/ * Fórum Delphi !! http://www.qualyinf.com.br/forum/delphi/delphi.html Componentes, Bibliotecas e Utilitários ====================================== Shareware/Comercial ------------------- * SMImport v1.60 - by Scalabium Software Native VCL suite for importing data into a dataset without external libraries. Supports import from: MS Excel (without OLE/DDE), delimited or fixed width text file, HTML, XML (without DOM), MS Access (using DAO/MS Jet), Lotus 123, QuattroPro, Paradox, DBase and any TDataSet descendant. Changes in v1.60: new fast spreadsheet engine, extended date/time parsing, modified wizard, additional settings for support of custom data formats (eg. currency string). http://www.scalabium.com/ * The eBook & Box Cover Creator - By Laughingbird Software Do-it-yourself eCover creation software. Create covers modifying premade product boxes or ebooks (25 professionally designed covers to choose from!), 3D product boxes, eBook covers, CD and Magazine covers! For Macintosh and Windows. http://www.thelogocreator.com/ Freeware -------- * Indy 9 - by The Indy Pit Crew, FREEWARE with source The long awaited Indy 9 has been released. Indy 9 now has 115 components (up from 69 in Indy 8) and many other improvements. http://www.nevrona.com/indy * JVCL 1.32 for Delphi 5/6 - by Project JEDI, FREEWARE with source The JEDI-VCL (JVCL) library is built from code donated by the JEDI community. It consists of 300+ VCL components that can be instantly reused in your Delphi (and potentially Kylix) projects. http://jvcl.sourceforge.net/ * Direct SQL Components - by N Shanny + C Nicola, FREEWARE with source Cross-platform (Windows+Linux) delphi native components for directly accesing SQL servers without using any externall dll's. The first release is for My-SQL but there are plans to extend it. http://sourceforge.net/projects/directsql/ * SourceForge Setup 1.3 - by Delprhree, FREEWARE with source Written in Delphi it can install SSH, completely set it up, and also configure WinCVS for a given project. Designed to make SourceForge easy to set up, it is split into stages which can be executed independently. You can unpack SSH, set up SSH and set up WinCVS individually or all together, depending on your needs. http://sourceforge.net/projects/sfsetup/ * DelphiWebScript - by Matthias Ackermann + Hannes Hernler, OPEN SOURCE Powerful script engine for your application or server side scripting. The script language is a subset of Delphi pascal. Create user defined functions, add function libraries or processes scripts embedded in HTML pages. Create a DWS ISAPI, NSAPI or CGI module in 5 minutes! http://www.swissdelphicenter.ch/en/download.php?id=232&kat=komponenten * ActiveX Scripting Components v1.07 - by A Wingrove, FREEWARE w. source Collection of native VCL components designed to make adding scripting in your programs easy. Requires Microsoft ActiveX Scripting Control. http://www.somethingmore.net/scripting * FreeReport PDF Export Filter v1.0 - by R C Ramirez, FREEWARE w. source Export reports to PDF from FreeReport/FastReport. Features: identical copies of your reports with no extra code, frames, Pictures, Lines, Memo, Bar Code, compression (use Zlib units) and more. http://www.torry.net/vcl/reports/reportdesigners/frexppdf.zip * MD5 - by Dimka Maslov, FREEWARE with source A translation of the RSA MD5 Message-Digest Algorithm described in RFC 1321. It contains functions to evaluate MD5 hashsum of a string, a file, a stream or any memory buffer, to convert a hashsum evaluation function result into a string of hexadecimal digits and to compare the results of two evaluations. No other files or libraries are required. http://endimus.com * XPControls v2.10 - by Michael Frank, FREEWARE with source WinXP Visual Styles supporting components: TXPAnimate, TXPCheckBox, TXPCheckListBox, TXPGroupBox, TXPListView, TXPRadioButton, TXPPageControl, TXPThemeAPI, TXPTrackBar. http://www.torry.net/vcl/packs/interfacelite/xpcontrols.zip * TAnalogGauge v1 - by Vyacheslav Shteg, FREEWARE with source Simple meter / gauge component for float values, eg. voltmeter. http://www.delphipages.com/uploads/Miscellaneous/AnalogGauge.zip * Gradbar - by Stefan Badenhorst, FREEWARE with source Derived from a TGraphic, it draws a gradient progress bar with a default caption of the position. The scaling of the gradient colour values and the caption can be changed. http://www.delphipages.com/uploads/Gauges_Meters/gradbar.zip * TMxOutLookBar v1.51 - by Lajos Farkas, FREEWARE with source Supports: Office 97, Windows2000 and Windows XP styles; scrolling headers; gradient, normal and tiled bitmap backgrounds, new bevels introduced in Delphi 6; 100% native VCL code. http://www.geocities.com/maxcomponents/ * TMSNPopUp v4.3 - by JWB Software, FREEWARE with source Allows you to use popup windows like MSN Messenger, offers different text styles, icon, text, title, customizable gradients, scrolling etc. http://people.zeelandnet.nl/famboek/ * TXMLSerializer v1.0 - by JWB Software, FREEWARE with source (DELPHI6) Pass an object as a parameter to the TXMLSerializer component to save it to disk as XML; works with any object derived from TPersistent. http://people.zeelandnet.nl/famboek/ Artigos, Dicas e Truques ======================== * About XML and Delphi - by Zarko Gajic Everything you need to know about Delphi and the Extensible Markup Language. Find out about creating and parsing XML documents, look for parser components and more. http://delphi.about.com/library/weekly/aa072500a.htm * TOP 10 Delphi - by Zarko Gajic Most popular Delphi Programming articles on Delphi About, July 2002. http://delphi.about.com/library/weekly/bltop10.htm * How to move the cursor to the currently focused control? http://www.swissdelphicenter.ch/en/showcode.php?id=1300 * How to access protected properties? http://www.swissdelphicenter.ch/en/showcode.php?id=1307 * How to extract the audio stream from an AVI file? http://www.swissdelphicenter.ch/en/showcode.php?id=1309 * How to calculate a simple checksum? http://www.swissdelphicenter.ch/en/showcode.php?id=1311 * How to get names of installed Mail-Clients? http://www.swissdelphicenter.ch/en/showcode.php?id=1319 * How to obtain the path to your program at runtime? http://www.swissdelphicenter.ch/en/showcode.php?id=1321 * How to manage, control NT-Services? http://www.swissdelphicenter.ch/en/showcode.php?id=1322 * How to play sound through a sound card? http://www.swissdelphicenter.ch/en/showcode.php?id=1324 * How to play a wave file backwards? http://www.swissdelphicenter.ch/en/showcode.php?id=1325 * How to obtain DLL-specific version information? http://www.swissdelphicenter.ch/en/showcode.php?id=1327 * How to print an Excel file? http://www.swissdelphicenter.ch/en/showcode.php?id=1328 * How to backup a branch of the registry? http://www.swissdelphicenter.ch/en/showcode.php?id=1330 * How to use Subscript or Superscript in a TRichEdit? http://www.swissdelphicenter.ch/en/showcode.php?id=1331 * How to insert a image into a TRxRichEdit? http://www.swissdelphicenter.ch/en/showcode.php?id=1332 * How to bring up a printer's properties dialog? http://www.swissdelphicenter.ch/en/showcode.php?id=1334 * How to access Listbox items with API? http://www.swissdelphicenter.ch/en/showcode.php?id=1335 * How to scroll a Treeview when Drag/Drop? http://www.swissdelphicenter.ch/en/showcode.php?id=1347 * How to use a Webbrowser's OnDocumentComplete with frames? http://www.swissdelphicenter.ch/en/showcode.php?id=1355 * How to change the TDBNavigator images? http://www.swissdelphicenter.ch/en/showcode.php?id=1358 * How to validate credit cards? http://www.swissdelphicenter.ch/en/showcode.php?id=1365 * How to change size of the Windows Start Button? http://www.swissdelphicenter.ch/en/showcode.php?id=1369 * Something missing about packages - by Pablo Reyes Packages are a great feature of Delphi, you can put not only components into packages but also anything you want. This way you can build modular, customizable applications. http://www.delphi3000.com/articles/article_3328.asp * Debugging Shell Extensions using Delphi - by Alex Tischenko Details of Shell extensions debugging under Windows 9x/W2K/XP. http://www.delphi3000.com/articles/article_3331.asp * Quickly Convert JPEG 2 Bitmap - by Howard Barlow http://www.delphi3000.com/articles/article_3334.asp * Delphi Add-On : What's New and Hot in Delphi - by Zarko Gajic Developing a simple Open Tools API menu expert with Delphi. With this add-on you can get Delphi About's new and hot listing without even leaving the Delphi IDE! http://delphi.about.com/library/weekly/aa070902a.htm * How to fix "dsgnintf.pas not found" - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=8&categories=General * How to create a hint window with a thin black border - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=8&categories=General * How to add autocomplete to a TComboBox - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=8&categories=General * How to refresh file icons - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=15&categories=Graphics * How to empty a TImage - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=15&categories=Graphics * How to read progress with TWebBrowser - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=12&categories=Internet/LAN * Determining Kylix (Linux) Application & Library dependancies - m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=16&categories=Kylix * How to read file version information - by Mike Pijl This function returns the full file version structure. http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=9&categories=System * About Calling conventions http://www.swissdelphicenter.ch/en/showcode.php?id=1233 * How to determine the version of Internet Explorer? http://www.swissdelphicenter.ch/en/showcode.php?id=1252 * How to trap own hotkeys in my application? http://www.swissdelphicenter.ch/en/showcode.php?id=1261 * How to get the primary domain controller (PDC)? http://www.swissdelphicenter.ch/en/showcode.php?id=1272 * How to change the value of Constants? http://www.swissdelphicenter.ch/en/showcode.php?id=1284 * How to quickly create a Paradox table using SQL? http://www.swissdelphicenter.ch/en/showcode.php?id=1286 * How to enable the drop shadow effect on a window (XP)? http://www.swissdelphicenter.ch/en/showcode.php?id=1296 * How to access the controls of a TRadioGroup? http://www.swissdelphicenter.ch/en/showcode.php?id=1297 * How to create transparent menus (2000/XP)? http://www.swissdelphicenter.ch/en/showcode.php?id=1298 * How to prevent a control from Redrawing (Refreshing)? http://www.swissdelphicenter.ch/en/showcode.php?id=1301 * How to analyze PE file headers? http://www.swissdelphicenter.ch/en/showcode.php?id=1302 * How to create a icon in the system tray? http://www.swissdelphicenter.ch/en/showcode.php?id=1303 * How to replace text in a word document? http://www.swissdelphicenter.ch/en/showcode.php?id=1304 * Using XML in Delphi applications: Part I - by Sergey Kucherov Understanding XML, developing your own XML Object Model, writing your own XML parser, using XML in Delphi applications and using XML as a local database. http://www.delphi3000.com/articles/article_3314.asp * Dataset Row Checksum - by Andreas Schmidt http://www.delphi3000.com/articles/article_3315.asp * Using MDI while TMDIForm is not your mainform - Uros Gaber You want to use TMDIForm that you open/create somewhere during runtime and is not the mainform of your application but Delphi doesn't allow you to create a TMDIChild if the TMDIForm is not your mainform. http://www.delphi3000.com/articles/article_3317.asp * Variable number of arguments - by Sigurdur Hannesson How to create functions that can accept n number of arguements. http://www.delphi3000.com/articles/article_3318.asp * Rudimentary Menu Plug In Mechanism - by Alex Wijoyo How to define menu plugins using a text file & create them at runtime. http://www.delphi3000.com/articles/article_3319.asp * Using IStrings and TStringsAdapter - Siva Rama Sundar Devasubramaniam A Simple, Straight forward way of using 'IStrings' interface to pass Multiple Strings from a COM Object. http://www.delphi3000.com/articles/article_3320.asp * Precise timer thread using messages - by Brian Pedersen When programming realtime interfaces and computergames, you need a precise timing signal. The engine must run at the same rate no matter what your framerate is. This example shows a game timer implementation using a thread and messaging. http://www.delphi3000.com/articles/article_3321.asp * Changing Interbase Error Messages in runtime - by Ernesto Cullen Shows a technique used to tackle Interbase errors on the client side, using IBX. Using this technique, you can turn ugly error messages into more user friendly ones, or translate them into your own language. http://www.delphi3000.com/articles/article_3322.asp * How to get an Unique Identifier for a File or Folder - Gerald Koeder Everyone who creates a File/folder copy or move-function must check if a sourcefile/folder exists at the destination. But how can we prove that two files don't point to the same physical place? Win2k and XP allow you to mount any volume under a folder and so it's possible that the files at 'c:\data\*.*' are the same as under 'd:\*.*' for example. http://www.delphi3000.com/articles/article_3323.asp * How to create a Combobox in a Stringgrid - by Boris B. Wittfoth How to dynamically create a Combobox within a Cell of a StringGrid. http://www.delphi3000.com/articles/article_3324.asp * Sending data from database by portions - by Vladimir Orlenko Some times we need send a huge quantity of data from a MiddleWare Server to a client application. If we do it in one portion then the user must wait a long time, but we can send this data in portions, when the user needs it. http://www.delphi3000.com/articles/article_3325.asp * How to get the BDE DLL path - by Mike Pijl http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=13&categories=Databases * How to get a list of open files in the IDE - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=14&categories=Delphi/Kylix+ID * Access TListbox, TCombobox, TRadioGroup using types - by Mike Pijl http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=8&categories=General * How to center controls at runtime by code - by Mike Pijl http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=8&categories=General * How to read image pixels fast - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=15&categories=Graphics * How to invert a bitmap - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=15&categories=Graphics * How to get a file's date and time - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=9&categories=System * How to create a temporary filename - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=9&categories=System * How to launch the Windows Find dialog - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=9&categories=System * How to read the mouse cursor position - by m3Rlin http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=9&categories=System * Accessing DataBase via 3rd server - by Vladimir Orlenko Writing n-tier Application for accessing client's app to DataBase without installing Client of Database via 3rd server using Indy. http://www.delphi3000.com/articles/article_3310.asp * Understanding VisualCLX - Max Kleiner (KYLIX) Beginning with Kylix requires learning about signals and slots, the way Linux/Qt deals with events and the Qt-library. http://www.delphi3000.com/articles/article_3311.asp * Top Modeling/CASE Tools - by Zarko Gajic What are the best UML tools on the market? There are a lot, providing an interesting array of features. Here's a list of suggested tools to make your Delphi developer days easier. http://delphi.about.com/library/toppicks/aatpmodelcase.htm * Simple HTML page scraping with Delphi - by Zarko Gajic Shows the techniques nedded to download an HTML page from the net, do some page scraping (using regular expressions for pattern matching) and present the information in more *situation-friendly* manner. http://delphi.about.com/library/weekly/aa062502a.htm * Making Delphi Interoperate with other languages - by Zarko Gajic How to make Delphi and Delphi apps interoperate with apps written in different programming languages. How to convert the code from other languages to Delphi Pascal. http://delphi.about.com/cs/delphiandothers/index.htm * Creating ASP Objects with Delphi - by Zarko Gajic If you use the MS IIS web server you will have noted its support for ASP. Having created COM objects with Delphi you can easily call your components from ASP scripts. http://delphi.about.com/cs/aspwithdelphi/ * New IDE Building Blocks - by Zarko Gajic Exploring ways to extend the Delpih IDE. Including portability issues, IDE Packages, Desktop Windows and learn to write Design Windows. http://delphi.about.com/library/weekly/aa033099.htm * Using ADO.NET datasets in Delphi - by Zarko Gajic If you've experimented with Web Services you might have seen some .NET based services which return data in the default XML format from ADO.NET. So you end up with XML but with no clue what to do with it! http://delphi.about.com/cs/websnap/index.htm * Data Exchange using XML and Delphi - by Zarko Gajic You have a client-server application with data access via ADO or BDE. It works great on a desktop or on a corporate intranet but Now your clients want to access data remotely across a WAN, or the Internet... http://delphi.about.com/library/weekly/aa072500a.htm * Interview with Chad Z. Hower - by SwissDelphiCenter Interview with Chad Hower ("Kudzu") the original author and project coordinator for Indy, 110+ components included with Delphi 6 & Kylix. http://www.swissdelphicenter.ch/en/chadhower.php * How to find all classes registered by a form class? http://www.swissdelphicenter.ch/en/showcode.php?id=1218 * How to Removing the todays date display from a TDateTimePicker? http://www.swissdelphicenter.ch/en/showcode.php?id=1219 * How to make some Days bold in the TMonthCalendar? http://www.swissdelphicenter.ch/en/showcode.php?id=1220 * How to use Base64 encoding and decoding? http://www.swissdelphicenter.ch/en/showcode.php?id=1223 * How to saving several controls to one single file? http://www.swissdelphicenter.ch/en/showcode.php?id=1224 * How to show my own help dialog when user clicks biHelp border icon? http://www.swissdelphicenter.ch/en/showcode.php?id=1225 * How to tile a non-MDIframe window with a backgrund bitmap? http://www.swissdelphicenter.ch/en/showcode.php?id=1226 * How to set a date of a TDateTimePicker to blank? http://www.swissdelphicenter.ch/en/showcode.php?id=1227 * How to get a list of a printer's capabilities? http://www.swissdelphicenter.ch/en/showcode.php?id=1228 * How to hide properties in the IDE? http://www.swissdelphicenter.ch/en/showcode.php?id=1229 * How to show in-place Tooltips in a TListBox? http://www.swissdelphicenter.ch/en/showcode.php?id=1230 * How to check or uncheck a Checkbox in another window? http://www.swissdelphicenter.ch/en/showcode.php?id=1231 * How to Create a DBExpress-Connection at Runtime? http://www.swissdelphicenter.ch/en/showcode.php?id=1234 * How to Set/Get Accessibility Time-out Periods? http://www.swissdelphicenter.ch/en/showcode.php?id=1235 * How to draw a bounding box with the mouse? http://www.swissdelphicenter.ch/en/showcode.php?id=1236 * How to retrieve information about the current keyboard? http://www.swissdelphicenter.ch/en/showcode.php?id=1237 * How to draw a highlight box around the control under the mouse? http://www.swissdelphicenter.ch/en/showcode.php?id=1238 * How to retrieve the handle to the Windows Shell window? http://www.swissdelphicenter.ch/en/showcode.php?id=1239 * How to get handle to the window that ownes the taskbar buttons (NT)? http://www.swissdelphicenter.ch/en/showcode.php?id=1240 * How to change the Button Captions in MessageDlg? http://www.swissdelphicenter.ch/en/showcode.php?id=1241 * How to transfer strings, images (streams) between processes? http://www.swissdelphicenter.ch/en/showcode.php?id=1242 * How to Encrypt/ Decrypt a String? http://www.swissdelphicenter.ch/en/showcode.php?id=1243 * How to extract numbers from a string? http://www.swissdelphicenter.ch/en/showcode.php?id=1244 * How to use MAPI to send an EMail with Attachements? http://www.swissdelphicenter.ch/en/showcode.php?id=1246 * How to show a miniature view of a Webpage in TWebbrowser? http://www.swissdelphicenter.ch/en/showcode.php?id=1247 * How to tell if a folder is shared? http://www.swissdelphicenter.ch/en/showcode.php?id=1248 * How to check if a page in TWebbrowser is secure (SSL)? http://www.swissdelphicenter.ch/en/showcode.php?id=1250 * How to check if a page in TWebbrowser is on a local drive? http://www.swissdelphicenter.ch/en/showcode.php?id=1251 * How to set/get the background color of a page in TWebbrowser? http://www.swissdelphicenter.ch/en/showcode.php?id=1254 * How to change the scrollbar colors of TWebBrowser? http://www.swissdelphicenter.ch/en/showcode.php?id=1255 * How to obtain the text of a specified window's title bar? http://www.swissdelphicenter.ch/en/showcode.php?id=1257 * How to change the default cell selection color in a TStringGrid? http://www.swissdelphicenter.ch/en/showcode.php?id=1258 * How to link a TFilterComboBox with a TShellListView? http://www.swissdelphicenter.ch/en/showcode.php?id=1259 * How to save a font to the registry/a stream? http://www.swissdelphicenter.ch/en/showcode.php?id=1260 * How to Calculate Easter Day for a specified year? http://www.swissdelphicenter.ch/en/showcode.php?id=1262 * How to capture a column resize event in a TListView? http://www.swissdelphicenter.ch/en/showcode.php?id=1264 * Determine if your program/Service is running under the System account http://www.swissdelphicenter.ch/en/showcode.php?id=1265 * How to save many streams in a (compressed, encrypted) file? http://www.swissdelphicenter.ch/en/showcode.php?id=1266 * How to encrypt a image? http://www.swissdelphicenter.ch/en/showcode.php?id=1268 * How to use a Syntax Highlighter? http://www.swissdelphicenter.ch/en/showcode.php?id=1270 * How to save a file to a TBlobStream and read it back? http://www.swissdelphicenter.ch/en/showcode.php?id=1271 * How to check if a service is running? http://www.swissdelphicenter.ch/en/showcode.php?id=1275 * How to implement AfterShow, AfterCreate events? http://www.swissdelphicenter.ch/en/showcode.php?id=1276 * How to get infos about aliases? http://www.swissdelphicenter.ch/en/showcode.php?id=1277 * How to automatically insert a GUID into the code editor? http://www.swissdelphicenter.ch/en/showcode.php?id=1280 * How to register or unregister an OCX/ActiveX? http://www.swissdelphicenter.ch/en/showcode.php?id=1281 * How to check for prime numbers http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=10&categories=Math * How to get the battery life http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=11&categories=Hardware * How to resolve a host name http://www.delphifaq.net/modules.php?op=modload&name=FAQ&file=index &myfaq=yes&id_cat=12&categories=Internet/LAN Tutoriais ========= * Create an effective Data Model for your Database The three phases of the data modeling process will help you create an effective business database that transcends applications and won't need reworking when new data is introduced. Learn about these three phases and get more data modeling resources. http://builder.com.com/article.jhtml?id=u00320020605dol01.htm * Use SQL Subselects to consolidate queries - by Shelley Doll Are normalized data structures giving you problems? Learn how to use the SQL subselect statement and handle your database like a pro! http://builder.com.com/article.jhtml?id=u00320020703dol01.htm * Creating Custom Delphi Components: Inside and Out - Alistair Keys This tutorial explains component writing which should result in more code reuse. It goes over properties, events and methods, and also how to install components. The final part is about Object-Oriented design. http://delphi.about.com/library/bluc/text/uc061102a.htm * Remedial XML: Learning to play SAX - by Lamont Adam Using DOM to parse XML documents you will notice that performance suffers when dealing with large documents. This is endemic to DOM's tree-based structure so where performance is problematic you can use the Simple API for XML (SAX). This part of the Remedial XML series introduces the SAX API and provides some links to implementations. http://builder.com.com/article.jhtml?id=u00220020527adm01.htm * Remedial XML: For Further Reading - by Lamont Adams Wraps up this six-part remedial XML series with a list of suggested Web resources to further your studies. http://builder.com.com/article.jhtml?id=u00320020521adm01.htm Outros Links ============ * Press Release: Borland Breaks New Ground with C++Technology for Linux(r) Kylix 3 delivers the first C/C++ and Borland Delphi integrated rapid application development solution for creating database, GUI, Web, and Web Services applications for the Linux(r) operating system. http://community.borland.com/article/0,1410,28896,00.html * Vote in Linux Journal's 2002 Readers' Choice awards Vote for your favorite Linux related products. http://community.borland.com/article/0,1410,28921,00.html * Web Services: Messiah or Mirage? - by David Braue Software vendors keep telling us that Web services are the answer but noone knows the question. Explore the state of Web services today. http://builder.com.com/article.jhtml?id=u00420020626gcn01.htm * Programming within your comfort zone - by Shelley Doll It's nice to be the expert but as time passes & technologies advance, your area of expertise shrinks noticeably. If you never stop to look outside your comfort zone you could be using obsolete techniques and spending time programming solutions that have already been solved. http://builder.com.com/article.jhtml?id=u00420020620dol01.htm ________________________________________________________________________ VOCÊ PODE NOS AJUDAR Nós precisamos de sua ajuda para manter esse boletim ativo e cada vez maior. Você pode ajudar indicando o boletim a seus amigos e colegas: http://www.latiumsoftware.com/br/pascal/index.php Você também pode votar para nós em um ou todos esses rankings para dar maior visibilidade a nosso site e assim aumentar o número de assinantes do boletim: http://www.sandbrooksoftware.com/cgi-bin/TopSite2/rankem.cgi?id=latium http://news.optimax.com/delphi/links/links.exe/click?id=70C517ECAE6E http://www.programmingpages.com/?r=latiumsoftwarecomenpascal http://www.top219.org/cgi-bin/vote.cgi?delphi&83 http://top100borland.com/in.php?who=20 http://top200.jazarsoft.com/delphi/rank.php3?id=latium http://213.65.224.200/cgi-bin/toplist.cgi/hits?Id=80 São alguns segundos para você que REALMENTE significam muito para nós. Não esqueça que também precisamos de artigos para os boletins e que existe um prêmio para um dos autores em cada número (em inglês). Todos os artigos serão considerados mas nós estamos particularmente interessados em artigos sobre Kylix já que existe pouco material disponível online. * Envie seu artigo em inglês para pascal-newsletter-owner@yahoogroups.com * Envie seu artigo em português para boletim-pascal-owner@yahoogrupos.com.br ________________________________________________________________________ Se você não recebeu o código fonte completo dos exemplos neste número, você pode obtê-los em http://www.latiumsoftware.com/br/pascal/p0038.zip ________________________________________________________________________ Esse boletim é fornecido "COMO ESTÁ" sem garantias de qualquer tipo. Seu uso implica na aceitação dos termos de licença e isenção de garantia que podem ser lidos em http://www.latiumsoftware.com/br/pascal/index.php Os artigos são propriedade e copyright de seus respectivos autores e foram reproduzidos aqui com sua permissão. Você pode redistribuir esse boletim desde que na sua íntegra (incluindo notas de propriedade e copyright), sem alterações e de forma gratuita. ________________________________________________________________________ Página do grupo:.....: http://br.groups.yahoo.com/group/boletim-pascal/ Assinar..............: boletim-pascal-subscribe@yahoogrupos.com.br Cancelar assinatura..: boletim-pascal-unsubscribe@yahoogrupos.com.br Assinar/cancelar.....: http://groups.yahoo.com/group/boletim-pascal/join Problemas com sua assinatura? boletim-pascal-owner@yahoogrupos.com.br ________________________________________________________________________ Boletim Pascal http://www.latiumsoftware.com/br/pascal/index.php Copyright (c) 2002 por Ernesto De Spirito. Todos os direitos reservados. ________________________________________________________________________ |
Os exemplos do código fonte desta edição estão disponíveis para download.
 |
Erros? Omissões? Comentários? Por favor contate-nos!
