TBlobField 4 parte

[b:7c1d899bc0][i:7c1d899bc0]Para Programadores Última Atualização:18/08/01



RECEBA DICAS


email:

Inscrever-se
Cancelar


ENVIE...
Dúvidas
Sugestões
Dicas
Correções





DOWNLOAD...
Componentes
Arquivos
Programas








DICAS DE DELPHI
Abrindo o Email do Usuario
Manipulando Campo Blob
Validando Entradas no Tedit
Mostrando a Pagina de Propriedades de um Arquivo
Criando uma Tela de Entrada - Splash
E-mail pelo Componentes do Delphi
Lendo e Salvando Arquivos Ini
Listando os Arquivos de ´remover Programas´


PERGUNTAS MAIS FREQÜENTES
Desligar Windows
Criando uma Tela de Entrada - Splash
Manipulando Campo Blob
Ocultando Colunas numa Dbgrid
Abrindo o Email do Usuario
Leitura de Arquivos por Blocos
Listando os Arquivos de ´remover Programas´
Lendo e Salvando Arquivos Ini


BUSCA NA INTERNET












[ENQUETE]
[resultado]





























DICAS DE DELPHI
Abrindo o Email do Usuario

shellexecute(Handle,
´open´,
´mailto:abobora@orta.com.br?subject= Assunto´,
nil,´´,
sw_shownormal);



Voltar



Manipulando Campo Blob

TBlobField(MyTable.FieldByName(´SOM)).LoadFromFile(´MyWave.wav´);

TBlobField(MyTable.FieldByName(´SOM)).SaveToFile(´MyWaveCopy.60wav´);

TBlobField(MyTable.FieldByName(´SOM)).Clear;

with MyTable do
if not TBlobField(MyTable.FieldByName(´SOM)).IsNull then
TBlobField(MyTable.FieldByName(´SOM)).SaveToFile(´MyWaveCopy.wav´);

Para saber quanto um campo BLOB está ocupando num registro do seu arquivo
em byte, use a propriedade BlobSize:
TBlobField(MyTable.FieldByName(´SOM)).BlobSize;

Usando os mesmos métodos, você também pode armazenar e manipular filmes
AVI, apresentações, documentos, etc



Voltar



Validando Entradas no Tedit

No evento OnKeyPress do objeto Edit, digite:


if not ( Key In [´0´..´9´,´.´] ) then
Abort;



Voltar



Mostrando a Pagina de Propriedades de um Arquivo

procedure TForm1.Button1Click(Sender: TObject);
var
Sei : TShellExecuteInfo;
begin
FillChar(Sei, SizeOf(Sei),0);
with sei do begin
cbSize := SizeOf(sei);
fMask := SEE_MASK_NOCLOSEPROCESS or SEE_MASK_INVOKEIDLIST or
SEE_MASK_FLAG_NO_UI;
Wnd := Handle;
lpVerb := ´properties´;
lpFile := PChar(Application.ExeName);
nShow := SW_SHOWNORMAL;
end;
ShellExecuteEX(@Sei); end;



Voltar



Criando uma Tela de Entrada - Splash

Projeto:

program Project1;

uses
Windows,
Forms,
Unit1 in ´Unit1.pas´ ,
Unit2 in ´Unit2.pas´ ;

{$R *.RES}

begin
Application.Initialize;
FormSplash := TFormSplash.Create(Application);
FormSplash.Show;
FormSplash.Refresh;
Sleep(2000);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

procedure TForm1.FormCreate(Sender: TObject); begin FormSplash.Close; end;



Voltar



E-mail pelo Componentes do Delphi

Procedure TForm1.EnviarEMail(const MailTo: String);
var
MailObj: TNMSmtp;
begin
{E-mail pelo componentes do delphi}
MailObj := TNMSMTP.Create( self );
Try
MailObj.Host := ´10.0.1.1´;
With MailObj.PostMessage Do Begin
FromAddress := ´danilo@alba.com.br´;
FromName := ´Danilo´;
Subject := ´Delphi Teste´;
ToAddress.Add( MailTo );
Attachments.Add( ´C:\Deptsetr.lst´ ); // Arquivo Atachado
Body.Add( ´Texto do E-Mail gerado pelo Delphi...´ );
End;
MailObj.Connect;
MailObj.SendMail;
MailObj.Disconnect;
//
Finally MailObj.Free; End; end;



Voltar



Lendo e Salvando Arquivos Ini

procedure TFormServ.Learquivoini;
var
ini: TIniFile;
begin
ini := TIniFile.Create(´Server.ini´);
try
RadioGroup.ItemIndex := ini.ReadInteger(´PRINCIPAL´,´PROTOCOL´,-1);
cboServerName.Text := ini.ReadString(´PRINCIPAL´,´SERVER´ , ´´);
finally
ini.free;
end;
end;

procedure TFormServ.Salvaarquivoini;
var
ini: TIniFile;
begin
ini := TIniFile.Create(´Server.ini´);
ini.WriteInteger(´PRINCIPAL´,´PROTOCOL´,RadioGroup.ItemIndex);
ini.WriteString(´PRINCIPAL´,´SERVER´ ,cboServerName.Text); ini.Free; end;



Voltar



Listando os Arquivos de ´remover Programas´

procedure TForm1.FormCreate(Sender: TObject);
const
MainPath = ´Software\Microsoft\Windows\CurrentVersion\Uninstall\´;
var
Reg : TRegistry;
Lista : TStringList;
i : Integer;
NomeUninst : String;
begin
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
Lista := TStringList.Create;
try
// abre a chave para procurar programas
if Reg.OpenKey(MainPath,False) then begin
// pega a lista de programas
Reg.GetKeyNames(Lista);
// processa todos os programas
for i := 0 to Lista.Count-1 do begin
Reg.CloseKey;
if Reg.OpenKey(MainPath+Lista[i],False) then
// verifica se UninstallString e DisplayName estão preenchidos
if Reg.ReadString(´UninstallString´) <> ´´ then begin
NomeUninst := Reg.ReadString(´DisplayName´);
if NomeUninst <> ´´ then
Listbox1.Items.Add(NomeUninst);
end;
end;
end;
finally
Lista.Free; end; finally Reg.Free; end; end;




Voltar









PERGUNTAS MAIS FREQÜENTES
Desligar Windows

ExitWindowsEx(EWX_ShutDown,0);



Voltar



Criando uma Tela de Entrada - Splash

Projeto:

program Project1;

uses
Windows,
Forms,
Unit1 in ´Unit1.pas´ ,
Unit2 in ´Unit2.pas´ ;

{$R *.RES}

begin
Application.Initialize;
FormSplash := TFormSplash.Create(Application);
FormSplash.Show;
FormSplash.Refresh;
Sleep(2000);
Application.CreateForm(TForm1, Form1);
Application.Run;
end.

procedure TForm1.FormCreate(Sender: TObject); begin FormSplash.Close; end;



Voltar



Manipulando Campo Blob

TBlobField(MyTable.FieldByName(´SOM)).LoadFromFile(´MyWave.wav´);

TBlobField(MyTable.FieldByName(´SOM)).SaveToFile(´MyWaveCopy.60wav´);

TBlobField(MyTable.FieldByName(´SOM)).Clear;

with MyTable do
if not TBlobField(MyTable.FieldByName(´SOM)).IsNull then
TBlobField(MyTable.FieldByName(´SOM)).SaveToFile(´MyWaveCopy.wav´);

Para saber quanto um campo BLOB está ocupando num registro do seu arquivo
em byte, use a propriedade BlobSize:
TBlobField(MyTable.FieldByName(´SOM)).BlobSize;

Usando os mesmos métodos, você também pode armazenar e manipular filmes
AVI, apresentações, documentos, etc



[/i:7c1d899bc0][/b:7c1d899bc0]

Desculpem erro no copiar e colar