O código a seguir, está comparando 2 bitmaps, mas a idéia pode ser utilizada para comparar outros formatos de imagem, arquivos, ou qualquer conteúdo salvo em TMemoryStream. function IsSameBitmap(Bitmap1, Bitmap2: TBitmap): boolean; var Stream1, Stream2: TMemoryStream; begin Assert((Bitmap1 <> nil) and (Bitmap2 <> nil), ‘Params can”t be nil’); Result:= False; if (Bitmap1.Height <> Bitmap2.Height) or [...]
O site baguete.com.br publicou um artigo interessante sobre a Lei de regulamentação da profissão de analista de sistemas, nele há análise da Lei, opinião de profissionais da área e um podcast. Referência: Analista, só com diploma. Bom ou mau?
Geralmente me mantenho fora destes assuntos, mas não dá se omitir neste momento, os senadores estão para aprovar uma Lei que vai prejudicar muitos bons profissionais da nossa área, temos de defender nossos interesses e entrar em contato com os senadores de nossos estados. Comissão do Senado regulamenta profissão de analista de sistema Projeto de [...]
Este post é apenas para que outros consumidores conheçam o produto antes de comprar, já que o site da americanas.com não informa como o produto realmente é. Comprei um telefone sem fio na americanas.com OREGON OS-6014, anunciado por R$ 59,00. Foi entregue no sábado, dia 15 de agosto de 2009 e de cara notei um [...]
O Guinther Pauli postou no Code Central um exemplo de como usar o Delphi para se comunicar com o Twitter. http://cc.embarcadero.com/Item/27198 O exemplo usa TIdHTTTP para se comunicar com o site e TXMLDocument para interagir com os campos. Vale a pena verificar como é feito, pois pode ser utilizado para entender como se comunicar com outros [...]
Uma forma simples tratar Mouse Wheel no TScrollBox. O código a seguir foi escrito pelo Peter Bellow no newsgroup embarcadero.public.delphi.vcl.components.using Eu postei aqui o código com uma pequena correção, o SB_LINEDOWN/SB_LINEUP estavam invertidos, e outras modificações pra adaptar ao meu código. procedure TFormEquifaxMain.ScrollBoxMouseWheel(Sender: TObject; Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean); var Msg: Cardinal; [...]
Apenas um exemplo de código de como manipular TFields em run time. Criar TFields sem utilizar TDataSet.FieldDefs Clonar Fields TDataSetField: Manipular TFields aninhados procedure TFormDBUtils.ButtonCreateFieldsClick(Sender: TObject); function CreateField(DataSet: TDataSet; FieldClass: TFieldClass; const FieldName: string = ”): TField; begin Result:= FieldClass.Create(DataSet); Result.FieldName:= FieldName; if Result.FieldName = ” then Result.FieldName:= ‘Field’ + IntToStr(DataSet.FieldCount +1); Result.FieldKind := fkData; [...]
Um vírus chamado Virus.Win32.Induc.a, não infecta executáveis, ele procura por uma das versões de Delphi citadas para infectar a unit SysConst. Ele copia a unit SysConst.pas para \Lib e adiciona código, faz um backup de SysConst.dcu, chamado SysConst.bak. Compila \Lib\SysConst.pas criando uma versão infectada de SysConst.dcu. O arquivo .pas modificado é excluído. "uses windows; var [...]
Ultimamente somente vejo boas notícias para o Firebird. Ganhou prêmio de projeto no SourceForge Delphi 2010 vai suportar o Firebird Mais um driver DBX gratuíto para Delphi 2007 e 2009 disponível com fontes. O driver foi escrito pelo programador Chau Chee Yang, há mais ou menos um ano, eu troquei alguns emails com ele, perguntando se [...]
