clipboard-invalid format

[Abricosko]

procedure TPatients.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
 Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
 Image1.Picture.Assign(Clipboard);
end;
   Clipboard.Assign(Image1.Picture);
   Image1.Picture.Assign(Clipboard);
   DBImage1.PasteFromClipboard;
end;

на bmp и другие форматы,может я что-то упустила в коде?

[Vikenty]

Если вам просто нужно загрузить картинку в DBGrid то так:
[DELPHI]
procedure TPatients.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPic tureDialog1.FileName);
end;
DBImage1.Picture:=Image1.Picture;
end;
[/DELPHI]

[Abricosko]

Сообщение от Vikenty

Если вам просто нужно загрузить картинку в DBGrid то так:
[DELPHI]
procedure TPatients.Button1Click(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
begin
Image1.Picture.LoadFromFile(OpenPic tureDialog1.FileName);
end;
DBImage1.Picture:=Image1.Picture;
end;
[/DELPHI]

Vikenty,спасибо,так работает

[Abricosko]

А можно узнать почему мы не используем Clipboard ,оно автоматом помещается в буфер памяти ?

[Vikenty]

В моем коде картинка вообще не помещается в буфер, а отправляется в DBImage напрямую