Fórum Gravar campo foto como null #349524

Saudações!!!!


Estou com uma grande dúvida em relação ao campo foto: supondo que este não seja um campo obrigatório, como fazer com que receba um valor null???

Pesquisei muito sobre isso, mas infelizmente não achei nada a respeito. Isso realmente é possível???

Ah, estou usando Delphi 2006 + Firebird + DBExpress + TImage.

[b:1d4ec71d4c]Códigos utilizados:[/b:1d4ec71d4c]

[b:1d4ec71d4c]- Na gravação:[/b:1d4ec71d4c]

procedure Tform1.GravaRegistro;
var
img : TMemoryStream;
begin
if flag = ´I´ then
begin
with ClientDataSet1 do
begin
close;
Params.ParamByName(´NOME´).AsString := edtNome.Text;
if Image1.Picture <> nil then
begin
img := TMemoryStream.Create;
try
Image1.Picture.Graphic.SaveToStream(img);
Params.ParamByName(´FOTO´).LoadFromStream(img, ftBlob);
finally
img.Free;
end;
end
else
[i:1d4ec71d4c] [b:1d4ec71d4c] //Params.ParamByName(´FOTO´).AsBlob := null;[/b:1d4ec71d4c][/i:1d4ec71d4c]
[b:1d4ec71d4c] eu tentei colocar esta linha, mas dá erro de access violation....[/b:1d4ec71d4c]
execute;
end;
end;
end;


[b:1d4ec71d4c]- Na visualização[/b:1d4ec71d4c]

procedure Tform1.DataSource1DataChange(Sender: TObject; Field: TField);
var
mem : TMemoryStream;
jpg : TJPEGImage;
begin
if not DataSource1.DataSet.IsEmpty then
begin
edtCodigo.Text := inttostr(ClientDataSet2.FieldByName(´ID_CONVIDADO´).AsInteger);
edtNome.Text := ClientDataSet2.FieldByName(´NOME´).AsString;
jpg := TJPEGImage.Create;
mem := TMemoryStream.Create;
try
ClientDataSet2FOTO.SaveToStream(mem);
mem.Position := 0;
jpg.LoadFromStream(mem);
Image1.Picture.Assign(jpg);
finally
jpg.Free;
mem.Free;
end;
end;
end;


Desde já agradeço pela atenção.

[]´s

Rogério
[/b]