CustomConnection - OnNext OnFirst

[merlin17]

Hallo kati

Zitat:

Würde mich auch sehr über einen Quelltextauszug freuen!

here we go:

Delphi-Quellcode:

procedure TForm1.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
  Connection.WriteField('LogoBitmap', dtGraphic, 30, '', '');
end;

procedure TForm1.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
  // some procedures for "extended customConnection.... in this example not always a must
  LogoRow := 1;
end;

procedure TForm1.RvCustomConnection1Next(Connection: TRvCustomConnection);
begin
  inc(LogoRow);
end;

procedure TForm1.RvCustomConnection1EOF(Connection: TRvCustomConnection;
  var Eof: Boolean);
begin
  Eof := (LogoRow > 1);
end;

procedure TForm1.RvCustomConnection1GetRow(
  Connection: TRvCustomConnection);
var
  FileStream: TFileStream;
  MemStream: TMemoryStream;
begin
  try
    MemStream := TMemoryStream.Create;
    try
      MemStream.LoadFromFile(ExtractFilePath(Application.ExeName) +
        'custom.bmp');
      Connection.WriteBlobData(MemStream.Memory^, MemStream.Size);
    finally
      MemStream.Free;
    end;
  finally

  end;
end;

@Frank:

Zitat:

mit Rave arbeite ich noch nicht so lange (1 Woche )

nicht schlecht; da soll noch einer sagen, rave sei komplex bzw. nicht intuitiv

Zitat:

Das ist dort recht gut beschrieben.

Danke


thomas, TeamNevrona