Delphi 8 - Curso Completo

Destinado aqueles que estão iniciando o seu aprendizado no desenvolvimento de aplicações para o ambiente Windows com o Delphi 8 e que desejam aprender ou revisar os conceitos e a sintaxe da linguagem Object Pascal, bem como se familiarizar com o ambiente de desenvolvimento integrado e com a utilização de controles e componentes para a criação de aplicações com interface gráfica.


Entre os assuntos abordados, destacam-se:

* Tecnologias portadas para .NET, como VCL.NET, BDE.NET e dbExpress.NET
* Ambiente de Desenvolvimento Integrado do Delphi 8
* Sintaxe da Linguagem Object Pascal
* Programação Orientada a Objetos
* Elementos Para a Criação da Interface com o Usuário
* Acesso a Bancos de Dados com o Borland Database Engine DBExpress
* Activex Data Objects e com o Interbase Express
* Criação de Aplicações Para Internet (ASP.NET)
* Criação de Componentes

Há muito tempo o Delphi deixou de ser uma ferramenta de desenvolvimento para criação de aplicações com interface gráfica para o ambiente Windows usando a linguagem Object Pascal, passando a se destacar como um ambiente de desenvolvimento integrado que permite a incorporação das mais diversas tecnologias às aplicações desenvolvidas.

Tamanho: 20 MB

Idioma: Português

Formato: Rar/Pdf

DOWNLOAD RAPIDSHARE
DOWNLOAD EASYSHARE

Usando Filtro de Busca de registro com SQL dentro do fonte com DB FireBird.

Primeiramente dentro do Form corrente da busca crie uma variável que pode ser global do tipo String. Lembrando que esse recurso é usado com o componente IBDataset ou IBQuery.
var StrSql : String;

Crie um Edit para inserir o texto para filtrar e um Button ou SpeedButton pra acionar o filtro. No evento OnClick do Botão voce insere o código a baixo:

strSql := 'Select * From tabela; //Tabela é a tabela que se ser procurar
strSql := strSql + ' Where campo a ser procurado Like ';
strSql := strSql + #39 + '%' + Edit.Text + '%' + #39; //componente pra inserir a busca
strSql := strSql + ' Order by campo asc'; // Ordenacao do resultado da busca que é opcional;
IBDataset_Tabela.Close; //
IBDataset_Tabela.SelectSQL.Clear;
IBDataset_Tabela.SelectSQL.Add(strSql);
IBDataset_Tabela.Open;

Obs: Para melhor viasualização, coloque um DBGrid apontando para a tabela do banco

[Código Fonte] Converte uma imagem bitmap para jpg

[Código Fonte] Carrega uma imagem em .jpg

[Código Fonte] Salva uma imagem Jpg em um arquivo

Inserindo Imagens em tabela no Paradox

PARA RODAR VC TEM QUE TER UM CAMPO NA TABELA TYPE= G, UM COMPONENTE DBIMAGE COMPONENTE OPENPICTUREDIALOG, UM COMPONENTE TABLE, UM COMPONENTE BITBTNBUTTON/OU SP E COLOCAR O CODIGO NO SpeedButton1Click

DECLARE EM USES -> JPEG ,Clipbrd

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Jpeg:TJPEGImage;
begin
OpenPictureDialog1.Execute;
if OpenPictureDialog1.FileName > '' then
begin
Jpeg:= TJPEGIMAGe.Create;
Jpeg.LoadFromFile(OpenPictureDialog1.FileName);
Clipboard.Assign(Jpeg);
dbimage1.Picture.Assign(Jpeg);
dbimage1.PasteFromClipboard;
Jpeg.free;
end else
abort;
end;