Postei no Code Central um instalador para o BDE que funciona para Windows 32bit e Windows 64bit.
O link para download é http://cc.embarcadero.com/item/27573.
O crédito pelo instalador é do Edmar Frazão.
Atenção: O BDE foi descontinuado, então ele não terá atualizações. Por exemplo, nunca terá suporte a Unicode.
Você não deve iniciar o desenvolvimento de novas aplicações com BDE. Considere migrar seus sistemas existentes de BDE para dbExpress.
As vezes precisamos criar um Form em tempo de execução, a partir de uma classe especializada de TForm, apenas com métodos, criando os componentes dinamicamente, ex:
type
TMyForm = class(TForm)
protected
procedure CreateParams(var Params: TCreateParams); override;
end;
E nos deparamos com o erro:
Project MyProject.exe raised exception class EResNotFound with message ‘Resource TMyForm not found’.
Solução:
begin FMyForm:= TMyForm.CreateNew(Application); FMyForm.AlphaBlend:= True; FMyForm.AlphaBlendValue:= AlphaBlendValue; FMyForm.FormStyle:= fsStayOnTop; end;
Atenção:
Algumas coisas estão mudando. Projeto novo da Embarcadero no Source Forge
Sempre tem alguém perguntando a solução para este erro quando vai mandar Email com o Indy, então vou tentar postar a explicação mais simples para que seja possível entender o erro e como resolver.
Socket error 11004 ou WSANO_DATA, significa que a resolução de nome, tradução de www.dominio.com.br para o número IP, foi encontrada no servidor de DNS, mas não retornou nenhum dado. Isto significa que o servidor de nomes (DNS) está incorreto ou está mal configurado.
A solução definitiva é corrigir a configuração do DNS, se você tiver acesso administrativo a ele. Mas se isto não for possível então você pode utilizar o número IP diretamente no lugar do nome. Você pode utilizar o utilitário ping do windows, para descobrir o IP do servidor.
E se eu consultar o IP pela minha aplicação antes e passar para o componente Indy?
Você pode fazer uma chamada a API “GetHostByName”, que é utilizada internamente pelos componentes Indy, e terá o mesmo erro, por que a resolução de nomes é executada pelo mesmo servidor DNS.
Hoje encontrei 2 componentes gratuitos bem interessantes:
TProcessInfo disponibiliza uma lista de processos que estão rodando. Esta lista é uma coleção de objetos TProcessItem. Cada instância de TProcessItem disponibiliza informações e ações para o processo correspondente.
TAppInfo disponibiliza uma lista de programas rodando, similar a aba Aplicativos do Gerenciador de Tarefas do Windows. Esta lista é uma coleção de TWindowItem. Cada instância disponibiliza informações sobre a janela correspondente.
Ambos os componentes podem atualizar suas listas automaticamente através da propriedade Interval .
Exemplos:
Como localizar um processo pelo nome:
var
Process : TProcessItem;
begin
Process := ProcessInfo1.RunningProcesses.FindByName('Project3.exe');
if not Assigned(Process) then
ShowMessage('No process found');
end;
Localizar processos que consomem mais memória que outros:
var
I: Integer;
MemSize,
MaxMemSize : Cardinal;
ProcessName : string;
begin
MaxMemSize := 0;
for I := 0 to ProcessInfo1.RunningProcesses.Count - 1 do
begin
MemSize := ProcessInfo1.RunningProcesses[i].MemoryInfo.WorkingSetSize;
if MemSize > MaxMemSize then
begin
MaxMemSize := MemSize;
ProcessName := ProcessInfo1.RunningProcesses[i].ExeFile;
end;
end;
ShowMessage(ProcessName + ‘uses more memory than other processes.’);
end;
Finalizar um processo:
var
Process : TProcessItem;
begin
Process := ProcessInfo1.RunningProcesses.FindByName('notepad.exe');
if Assigned(Process) then
Process.TerminateProcess;
end;
Links:
No Delphi 2010, por padrão o DBX lista como opção pra acessar o MS SQL Server, um driver chamado MSSQL, que está configurado para acessar o SQL Server 2008, já que o VendorLib está com o valor “sqlncli10.dll”.
Para acessar o SQL Server 2005, tem uma configuração de driver pronta no arquivo dbxdrivers.ini, chamada MSSQL9 já configurado para acessar o SQL Server 2005 com o VendorLib “sqlncli.dll”. Mas este driver dbx não é ativado por padrão, para ativá-lo, você deve adicionar MSSQL9=1 no grupo [Installed Drivers] no início do arquivo dbxdrivers.ini. Após fazer esta alteração, basta reiniciar o Delphi e você vai ver a opção de conexão chamada MSSQL9 no Data Explorer.
O início do meu arquivo dbxdrivers.ini ficou assim:
[Installed Drivers]
DBXTrace=1
DBXPool=1
BlackfishSQL=1
DataSnap=1
ASA=1
ASE=1
DB2=1
Firebird=1
Informix=1
Interbase=1
MSSQL=1
MSSQL9=1
MySQL=1
Oracle=1…
Para configurar o acesso para o MS SQL Server 2000, você deve usar o Driver MSSQL, e mudar o VendorLib para oledb.dll.
Dica: Se quiser deixar mais claro os nomes dos drivers, você pode mudar o nome dos grupos no dbxdrivers.ini e dos itens no [Installed Drivers], assim:
[Installed Drivers]
…
MSSQL2008=1
MSSQL2005=1
MSSQL2000=1[MSSQL2008]
…
LibraryName=dbxmss.dll
VendorLib=sqlncli10.dll
…[MSSQL2005]
…
LibraryName=dbxmss9.dll
VendorLib=sqlncli.dll
…[MSSQL2000]
…
LibraryName=dbxmss.dll
VendorLib=oledb.dll
…
Estas informações estão documentadas no “Release Notes”, que está na pasta de instalação do delphi 2010, a seguir uma tradução do que está escrito, com algumas alterações pra ficar mais claro:
MS SQL Server Driver DBX Driver Client 2008 dbxmss.dll sqlncli10.dll 2005 dbxmss9.dll sqlncli.dll 2000 dbxmss.dll oledb.dll
Boa dica para descobrir a CPU em que o programa está rodando:
CPU ID Vendor
Fontes:
type
TCPUVendor = (cvUnknown, cvAMD, cvCentaur, cvCyrix, cvIntel, cvTransmeta,
cvNexGen, cvRise, cvUMC, cvNSC, cvSiS);
TCPUVendorStr = string[12];
const
CPUVendorStr: array [ Low(TCPUVendor) .. High(TCPUVendor)]
of TCPUVendorStr = ('', 'AuthenticAMD', 'CentaurHauls',
'CyrixInstead', 'GenuineIntel', 'GenuineTMx86',
'NexGendriven', 'RiseRiseRise', 'UMC UMC UMC ', 'Geode by NSC',
'SiS SiS SiS');
function GetCPUVendorStr: string;
function GetCPUVendor: TCPUVendor;
var
FormCPUID: TFormCPUID;
implementation
{$R *.dfm}
function GetCPUVendorStr: string;
// Note: this code comes from the FastCode project
// (see http://sourceforge.net/projects/fastcode/)
type
TRegisters = packed record
EAX: Cardinal;
EBX: Cardinal;
ECX: Cardinal;
EDX: Cardinal;
end;
function IsCPUIDAvailable: boolean; register;
asm
PUSHFD // Save EFLAGS to stack
POP EAX // Store EFLAGS in EAX
MOV EDX, EAX // Save in EDX for later testing
XOR EAX, $200000 // Flip ID bit in EFLAGS
PUSH EAX // Save new EFLAGS value on stack
POPFD // Replace current EFLAGS value
PUSHFD // Get new EFLAGS
POP EAX // Store new EFLAGS in EAX
XOR EAX, EDX // Check if ID bit changed
JZ @Exit // No, CPUID not available
MOV EAX, True // Yes, CPUID is available
@Exit:
end;
procedure GetCPUID(const Param: Cardinal; var Registers: TRegisters);
asm
PUSH EBX { save affected registers }
PUSH EDI
MOV EDI, Registers
XOR EBX, EBX { clear EBX register }
XOR ECX, ECX { clear ECX register }
XOR EDX, EDX { clear EDX register }
DB $0F, $A2 { CPUID opcode }
MOV TRegisters(EDI).&EAX, EAX { save EAX register }
MOV TRegisters(EDI).&EBX, EBX { save EBX register }
MOV TRegisters(EDI).&ECX, ECX { save ECX register }
MOV TRegisters(EDI).&EDX, EDX { save EDX register }
POP EDI { restore registers }
POP EBX
end;
var
VendorStr: TCPUVendorStr;
Registers: TRegisters;
begin
if (IsCPUIDAvailable) then
begin
// Call CPUID function 0
GetCPUID(0, Registers);
// Get CPU vendor
SetLength(VendorStr, 12);
Move(Registers.EBX, VendorStr[1], 4);
Move(Registers.EDX, VendorStr[5], 4);
Move(Registers.ECX, VendorStr[9], 4);
Result:= string(VendorStr);
end
else
Result := 'cvUnknown';
end;
function GetCPUVendor: TCPUVendor;
var
VendorStr: TCPUVendorStr;
begin
Result:= cvUnknown;
VendorStr:= AnsiString(GetCPUVendorStr);
if VendorStr <> 'cvUnknown' then
begin
Result := High(TCPUVendor);
while ((VendorStr <> CPUVendorStr[Result]) and (Result > Low(TCPUVendor))) do
Dec(Result);
end;
end;
procedure TFormCPUID.Button1Click(Sender: TObject);
begin
Button1.Caption:= GetCPUVendorStr;
if cvIntel = GetCPUVendor then
MessageDlg('Genuine Intel!', mtInformation, [mbOK], 0);
end;
Uma imagem pode explicar melhor o sentido deste post, veja como a aparência dos botões desabilitados da segunda imagem são melhores que da primeira imagem.
Para deixar as imagens deste jeito eu usei 2 experts, primeiro o expert IDE Gradient para definir a aparência da barra de ferramentas com ou sem gradiente e o expert Delphi Nice Toolbar para melhorar a aparência das imagens.
Mas que tal se aplicar isto para todos os seus programas, além da IDE do Delphi? Para isto é necessário reimplementar parte do código do TImageList, então eu criei um QC para isto no Quality Central:
Report No: 80997 Status: Reported
Better look for TImageList disabled Images
http://qc.codegear.com/wc/qcmain.aspx?d=80997
QCWIN:Defect_No=80997
Se quer ver esta melhoria implementada por padrão no Delphi, vote neste QC, só clicar no link, fazer login com sua conta do EDN e votar, lembre-se que você pode dar até 10 votos por cada QC, se este QC tiver um bom número de votos, você pode ter esta melhoria na próxima versão do Delphi.
Este QC parece ser bem recebido pela comunidade, alguns grandes programadores conhecidos entraram em contato, um deles foi Anders Melander que até enviou um código que já pode ser utilizado nos nossos programas pra melhorar a aparência das imagens desabilitadas. Já que ele mandou o código para que eu incluísse no QC, não vejo problemas em divulgar aqui.
interface
uses
...
//---------------------------------------------------------------
//
// TImageList work around for disabled glyph state
//
//---------------------------------------------------------------
// Insert this declaration before your form is declared to enable the
// workaround.
// This class can be deleted if TImageList is ever fixed.
//---------------------------------------------------------------
type
TImageList = class(Controls.TImageList)
protected
procedure DoDraw(Index: Integer; Canvas: TCanvas; X, Y: Integer;
Style: Cardinal; Enabled: Boolean = True); override;
end;
implementation
uses
CommCtrl,
...;
procedure TImageList.DoDraw(Index: Integer; Canvas: TCanvas; X, Y: Integer;
Style: Cardinal; Enabled: Boolean);
var
i: integer;
Glyph, Mask: TBitmap;
begin
if HandleAllocated then
begin
if (Enabled) then
begin
inherited;
exit;
end;
Glyph := TBitmap.Create;
try
Glyph.SetSize(Width, Height);
Glyph.PixelFormat := pf32bit;
Glyph.Transparent := (ColorDepth <> cd32Bit);
// Clear entire glyph - including alpha
for i := 0 to Glyph.Height-1 do
FillChar(Glyph.ScanLine[i]^, Glyph.Width*SizeOf(DWORD), $00);
// Get glyph from imagelist
ImageList_Draw(Handle, Index, Glyph.Canvas.Handle, 0, 0,
ILD_TRANSPARENT);
// Synthesize the disabled glyph image
// TODO : Increase contrast of desaturated image.
Desaturate(Glyph, 255);
if (ColorDepth = cd32Bit) then
begin
// Note: Glyph.AlphaFormat should be done after the image has been
// desaturated; afDefined premultiplies the RGB.
Glyph.AlphaFormat := afDefined;
// Alpha blended glyph
// Draw glyph with AlphaBlend() via TBitmap.Draw().
Canvas.Draw(X, Y, Glyph);
end else
begin
// Masked glyph
Mask := TBitmap.Create;
try
Mask.SetSize(Width, Height);
Mask.Monochrome := True;
Mask.Canvas.Brush.Color := clWhite;
Mask.Canvas.FillRect(Rect(0, 0, Width, Height));
// Get glyph mask from imagelist
ImageList_Draw(Handle, Index, Mask.Canvas.Handle, 0, 0, ILD_MASK);
// Draw glyph masked with MaskBlt
//
// MakeROP4($00AA0029, SRCCOPY):
// if (Mask = 1) then Dest := Dest
// if (Mask = 0) then Dest := SRCCOPY (translate black to
// TextColor, white to BkColor)
// For each white pixel in the mask do nothing ($00AA0029 = NOOP).
// For each black pixel in the mask draw the glyph.
// Note: The special handling required by palette target devices
// has not been implemented.
MaskBlt(Canvas.Handle, 0, 0, Width, Height,
Glyph.Canvas.Handle, 0, 0,
Mask.Handle, 0, 0,
MakeROP4($00AA0029, SRCCOPY));
finally
Mask.Free;
end;
end;
finally
Glyph.Free;
end;
end;
end;
Para utilizar este código, basta colocar na mesma unit do form onde está o componente TImageList. O compilador vai utilizar esta versão de TImageList.DoDraw no lugar da versão original da VCL.
O código do expert Delphi Nice Toolbar também pode ser utilizado para melhorar a aparência da ToolBar nos seus programas, ele usa o método de “patch” em memória, método utilizado pelo Andreas Hausladen no DelphiSpeedUP e no IDE Fix Pack.
Nick Hodges postou em seu blog sobre o Estudo de Caso que a Microsoft fez sobre o Delphi Prism, elogiando o projeto criado utilizando o Visual Studio Shell.
Referências:
Roman Kassebaum anunciou a versão 1.14 do Turbo Power OnGuard. Esta versão suporta Delphi 2009 e Delphi 2010.
Site do projeto e download:
https://sourceforge.net/projects/tponguard/