Einzelnen Beitrag anzeigen

Keldorn

Registriert seit: 6. Mär 2003
Ort: Meißen
876 Beiträge
 
Delphi 10.1 Berlin Professional
 
#4

Re: Dyn. Image an Rave übergeben

  Alt 19. Mai 2005, 18:00
probiert habe ich es
Delphi-Quellcode:
procedure TForm1.RvCustomConnection4Open(Connection: TRvCustomConnection);
begin
  Connection.DataRows:=1;
end;

procedure TForm1.RvCustomConnection4GetCols(Connection: TRvCustomConnection);
begin
  Connection.WriteField('Graphic', dtgraphic, 30, '','');
end;

procedure TForm1.RvCustomConnection4GetRow(Connection: TRvCustomConnection);
Var Memstream:Tmemorystream;
begin
  with Connection do
    begin
      MemStream := TMemoryStream.Create;
      try
        //image enthält eine Bitmap, kein jpeg!
        Image1.Picture.Bitmap.SaveToStream(memstream);
        Connection.WriteBlobData(MemStream.Memory^, MemStream.Size);
      finally
        MemStream.Free;
      end;
   end;
end;
in rave eine neues Dataview einstellen und aus dem Reiter "standard" eine "Bitmap-component" auf die Seite. dort das entsprechende Dataview und datafiled einstellen.

oder du guggst mal hier: http://www.delphipraxis.net/internal...787&highlight=

Mfg Frank

Lükes Grundlage der Programmierung:
Es wird nicht funktionieren
(Murphy)
  Mit Zitat antworten Zitat