Буфер обмена

[DolgoDoom]

Здравствуйте, Уважаемые профессионалы!

Я конено прочитал правила, но к сожалению даже не знаю как подобраться к проблеме. Обшарил нет ничего похожего нет .
Помогите пожалуйста!

А проблема такая, нужно создать буфет обмена состоящий из 14 элементов, два из которых будут .Assign(JPG).

Подскажите плз, как это можно организовать.

[Аватар]

Если в рамках одного проекта, то можно воспользоваться глобальными объектами в проекте для организации такого нетрадиционного буфера обмена. Для обмена данными между различными проектами копайте в сторону CreateFileMapping, OpenFileMapping

[DolgoDoom]

Спс за ответ, сейчас попробую
Если не затруднить кинь пример кода, для второго варианта

[GunSmoker]

Вам принципиально использование именно стандартного буфера обмена или интересует просто обмен информацией между двумя вашими приложениями, не суть важно в каком формате?

[DolgoDoom]

Именно буфер обмена, просто задача несколько не стандартная.

[GunSmoker]

Тогда надо определиться, в каком виде вы собираетесь хранить данные.

Первое, что нужно сделать - понять, нельзя ли данные представить в виде общеизвестного формата. К примеру, набора файлов.

Если да - используем его.

Если подходящего формата не нашлось - реализуем свой. Делается это регистрацией private-формата. Ну а дальше дело техники: засериализовать данные в поток, поток запихать в буфер под своим форматом. И наоборот.

В любом случае, изучение начинаем отсюда: http://msdn.microsoft.com/en-us/libr...09(VS.85).aspx Для первого случая вас особенно вас будет интересовать, вероятно, этот раздел: http://msdn.microsoft.com/en-us/libr...02(VS.85).aspx

Тема относительно непростая и требует хорошей подготовки.

[DolgoDoom]

Большое спасибо всем за отзывы и подсказки. Задача почти решена

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Grids,
  StdCtrls, ExtCtrls, RySwapStream, DB, ADODB;

type

  TZadanie = record
    Image : ??? 
    V1, V2 ,V3 , V4 ,V5 , Key: String[25];
  end;

  
  private
    FRow: Integer;
    FGridEnabled: Boolean;
    FStreamKind: Byte;
    Stream : TStream;
    FStreamActive: Boolean;
    FZadanie: TZadanie;
    procedure SetGridEnabled(const Value: Boolean);
    procedure SetStreamActive(const Value: Boolean);
  private
    property StreamActive : Boolean read FStreamActive write SetStreamActive;
    property GridEnabled : Boolean read FGridEnabled write SetGridEnabled;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

constructor TForm1.Create(AOwner: TComponent);
begin
  inherited;
  begin
  try
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('SELECT * FROM DB1');
  ADOQuery1.Active:=True;
  ADOQuery2.SQL.Clear;
  ADOQuery2.SQL.Add('SELECT * FROM DB1');
  ADOQuery2.Active:=True;
  except
  on e:Exception do
  end;
  end;
  FRow := -1;

end;

destructor TForm1.Destroy;
begin
  StreamActive := False;
  inherited;
end;

procedure TForm1.RadioGroup1Click(Sender: TObject);

  procedure StreamKind(const Value: Byte);
  begin
    if Value = 1 then Edit1.Color := clWindow
    else Edit1.Color := clBtnFace;
    Edit1.Enabled := Value = 1;
    Button1.Enabled := Value > 0;
    Button3.Enabled := False;
    FStreamKind := Value;
  end;

begin
  StreamActive := False;
  StreamKind(RadioGroup1.ItemIndex);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  StreamActive := True;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  GridEnabled := True;
end;

const
  ACount = 3;

procedure TForm1.GridDrawCell(Sender: TObject; ACol, ARow: Integer;
          Rect: TRect; State: TGridDrawState);
const
  _FlagsText: Longint = (DT_LEFT or DT_NOCLIP or
              DT_VCENTER or DT_SINGLELINE or DT_END_ELLIPSIS);
var

  Str: String;
begin
  if not GridEnabled then Exit
  else
  if (ARow < 0) or (ARow > ACount) then Exit;

  if FRow <> ARow then
  begin
    FRow := ARow;
    Stream.Position := ARow * SizeOf(TZadanie);
    Stream.Read(FZadanie, SizeOf(TZadanie));
  end;

  case ACol of
    1: Str := FZadanie.Key;
    2: Str := FZadanie.V1;
    3: Str := FZadanie.V2;
    4: Str := FZadanie.V3;
    5: Str := FZadanie.V4;
    6: Str := FZadanie.V5;
    7: Str := FZadanie.Image;
    else Str := '';
  end;

  with Grid.Canvas do
  begin
    if (ARow <> 0) and (ACol <> 0) then
    begin
      if (ARow mod 2) = 0 then Brush.Color := clInfoBk
      else Brush.Color := clWhite;
      FillRect(Rect);
      Font.Color := clBlack;
    end;
    Windows.DrawText(Handle, PChar(Str), Length(Str), Rect, _FlagsText);
  end
end;

procedure TForm1.SetStreamActive(const Value: Boolean);
var
  FZ: TZadanie;
begin
  if FStreamActive = Value then Exit;

  if Value then
  begin
    case FStreamKind of
      1: begin
            if Edit1.Text = '' then Edit1.Text := 'Temp.dat';
            Stream := TFileStream.Create(Edit1.Text, fmCreate);
         end;
      2: Stream := TMemoryStream.Create;
      3: Stream := TRySwapStream.Create;
      else Exit;
    end;

    FZ.Key := 'Ключ';
    FZ.Image := 'Вопрос';
    FZ.Variant1 := 'Вариант 1';
    FZ.Variant2 := 'Вариант 2';
    FZ.Variant3 := 'Вариант 3';
    FZ.Variant4 := 'Вариант 4';
    FZ.Variant5 := 'Вариант 5';
    Stream.Write(FZ, SizeOf(TZadanie));

{выводим первую строку}

    begin
    ADOQuery1.First;
    ADOQuery1.Next;
      FZ.Key := (ADOQuery1.FieldByName('Key').AsString);
      FZ.Image := ????;
      FZ.Variant1 := (ADOQuery1.FieldByName('V1').AsString);
      FZ.Variant2 := (ADOQuery1.FieldByName('V2').AsString);
      FZ.Variant3 := (ADOQuery1.FieldByName('V3').AsString);
      FZ.Variant4 := (ADOQuery1.FieldByName('V4').AsString);
      FZ.Variant5 := (ADOQuery1.FieldByName('V5').AsString);
      Stream.Write(FZ, SizeOf(TZadanie));

    end;

    Button1.Enabled := False;
    Button3.Enabled := True;
  end else
  begin
    GridEnabled := False;
    Stream.Free;
  end;

  FStreamActive := Value;
end;

procedure TForm1.SetGridEnabled(const Value: Boolean);
begin
  if FGridEnabled = Value then Exit;
  if Value then
  begin
    Grid.RowCount := ACount;
    Grid.Enabled := True;
    Grid.Color := clWindow;
    Button3.Enabled := False;
  end else
  begin
    Grid.RowCount := 2;
    Grid.Enabled := False;
    Grid.Color := clBtnFace;
  end;

  FGridEnabled := Value;
end;

end.

Подскажите пожалуйста как теперь туда запихать Image. Из БД