Fórum Não adiciona foto no ClientDataSet (era:Código não funciona) #344486

var
  Nome, Path : string;
  J : TJPEGImage;
  P: TMemoryStream;
begin
  if OpenDialog.Execute then
  begin
      Nome := ExtractFileName(OpenDialog.FileName);
      Path := OpenDialog.FileName;
      if FotoCDS.Locate(´nome´,UpperCase(Nome),[]) then
      begin
        MessageBox(Handle,´Foto já cadastrada´,´Atenção´,MB_OK + MB_ICONEXCLAMATION);
        btnAddFoto.Click;
      end
      else
      begin
        P := TMemoryStream.Create;
        J := TJPEGImage.Create;
        J.LoadFromFile(Path);
        J.CompressionQuality := 70;
        J.Compress;
        J.SaveToStream(P);
        P.Seek(0,soFromBeginning);
        FotoCDS.Insert;
        FotoCDS.FieldByName(´nome´).AsString := UpperCase(Nome);
        TBlobField(FotoCDS.FieldByName(´foto´)).LoadFromStream(P);
        FotoCDS.Post;
        J.Free;
        P.Free;
      end;
  end;