ein StringGrid mit RaveReport aus drucken?

[Code]

Hallo Alle.

Wie kann ich ein StringGrid (nicht DBGrid) mit RaveReport aus drucken? Mit der Kop. RvTableConnection1 geht es nicht.

Gruß
Klaus

[merlin17]

Klaus,

suche einmal nach Rave CustomConnection hier ....


:-) thomas, TeamNevrona

[Code]

Zitat:

Zitat von merlin17

Klaus,

suche einmal nach Rave CustomConnection hier ....


:-) thomas, TeamNevrona

Hallo Thomas!

Grundsätzlich klappt es. Vielen Dank. Aber ich möchte gern das Grid mit Linien, also in Kästchen ausdrucken? Wie soll ich Rave mitteilen dass ich Kästchen benötige?

Gruß
Klaus

[grenzgaenger]

wie wär's mit codebasedprinting? damit kannste alles machen ... ;-) inkl. schöne grafiken zeichnen..

[merlin17]

ich schliesse mich dem Grenzgänger an <g>
damit hast du sämtliche Freiheiten, da Du alle Möglichkeiten von ObjectPascal innerhalb Delphi nutzt....


:-) thomas, TeamNevrona

[Code]

wo bekommt man codebasedprinting? Bei Ravereport ist es nicht dabei. Zu mindest bei mir nicht?

Gruß
Klaus

[merlin17]

code based ist immer dabei .... auch bei Rave BE!

hier der erste Artikel von Leonel über codebased (die anderen sollten verlinkt sein!)
http://dn.codegear.com/article/30329


:-) thomas, TeamNevrona

[Code]

Zitat:

Zitat von merlin17

code based ist immer dabei .... auch bei Rave BE!

hier der erste Artikel von Leonel über codebased (die anderen sollten verlinkt sein!)
http://dn.codegear.com/article/30329


:-) thomas, TeamNevrona

Vielen Dank, für Deine Hilfe.

Bei mir ist nur das dabei.

Gruß
Klaus

[merlin17]

das reicht doch :drunken:

RvSystem1 macht alles...... schaue Dir einmal
meine codeschnipsel hier an.
RvSystem1.Execute <g> in der zip von Fritz (habe ich mir aber nicht angeschaut!) sollte ein beispiel sein ....



:-) thomas, TeamNevrona

[Code]

Zitat:

Zitat von merlin17

das reicht doch :drunken:

RvSystem1 macht alles...... schaue Dir einmal
meine codeschnipsel hier an.
RvSystem1.Execute <g> in der zip von Fritz (habe ich mir aber nicht angeschaut!) sollte ein beispiel sein ....



:-) thomas, TeamNevrona

Bitte entschuldige, wenn ich so dumme Fragen stelle. Ich habe mich mit dem Report so gut wie noch nicht befast.

Gruß
Klaus

[merlin17]

Du brauchst dich nicht entschuldigen! Und ich gebe zu: Rave ist nicht eine von den leichten
Delphi-Komponenten, insbesondere die Lernkurve ist sehr steil ....
aber auf der nevrona.com/rave-seite, bereich tips&tricks findest du weitere lessons/tutorials! :cheers:


:-) thomas, TeamNevrona

[Code]

Ich bin's nochmal. Ich wollte versuchsweise ein Memo ausdrucken.
Wieso klappt dieser Code nicht?

Delphi-Quellcode:

procedure TForm3.Button2Click(Sender: TObject);
begin
  RvProject1.ProjectFile := ExtractFilePath(Application.ExeName)+'Project1.rav';
  RvProject1.Execute;
end;

procedure TForm3.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
RvCustomConnection1.WriteField('Text',dtString,50,'','');
end;

procedure TForm3.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
Var
I:Integer;
begin
  with connection do
    begin
       for I := 0 to Memo1.Lines.Count - 1 do  WriteStrData(Memo1.Lines[I],'');
    end;
end;

procedure TForm3.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
Connection.DataRows := Memo1.Lines.Count - 1;
end;

Auf der Form habe ich ein Memo, RvCustomConnection und RvProject.

Gruß
Klaus

[merlin17]

warum dtString für ein Memofeld :gruebel:
so wie nachfolgendes Schnipsel sollte es besser gehen...
btw: ist eigentlich ein neues Thema..... :dp:

:-) thomas, TeamNevrona

Delphi-Quellcode:

procedure TForm1.RvCustomConnection1GetCols(
  Connection: TRvCustomConnection);
begin
  Connection.WriteField('FieldText1', dtString, 30, '', '');
  Connection.WriteField('FieldMemo1', dtMemo, 30, '', '');
end;

procedure TForm1.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
var
  s: string;
  Buffer: PChar;
begin
  s := 'Meine Info für das Textfeld';
  Connection.WriteStrData('', S);
  GetMem(Buffer, Length(Memo1.Text) + 1);
  StrCopy(Buffer, PChar(Memo1.Text));
  Connection.WriteBlobData(Buffer^, Length(Memo1.Text));
  FreeMem(Buffer);
end;

[Code]

Zitat:

Zitat von merlin17

warum dtString für ein Memofeld :gruebel:
so wie nachfolgendes Schnipsel sollte es besser gehen...

Hi,

Auch mit Deinem Beispiel klappt es nicht richtig. Von dem Memo wird nur immer die erste Zeile ganz oft ausgedruckt. (Ich hatte das Memo mal gefüllt).

Und

Delphi-Quellcode:

procedure TForm3.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
var
  s: string;
  Buffer: PChar;
  I:Integer;
begin
For  I := 0 To Memo1.Lines.Count - 1 do
begin
  s := Memo1.Lines[I];
  Connection.WriteStrData('', S);
  GetMem(Buffer, Length(Memo1.Text) + 1);
  StrCopy(Buffer, PChar(Memo1.Text));
  Connection.WriteBlobData(Buffer^, Length(Memo1.Text));
  FreeMem(Buffer);
end;

geht wieder nicht. Das gleiche Problem habe ich auch bei einem StringGrid.

Gruß
Klaus

[merlin17]

Habe einmal eine miniprojekt aufgezogen, siehe quelltext unten;
in das MEMO1-Feld aus wikipedia einen längeren Text kopiert und
dann dann kam der Report (page-orientiert!, wollte hier nicht mit
Regionen oder Bänder etc.etc. arbeiten, hat mit dem Übergabeproblem nichts
zu tun) sogar über mehrere Seiten (wie lange eben der Memo-inhalt ist) in der Preview...


:-) thomas, TeamNevrona

Delphi-Quellcode:

procedure TForm17.Button1Click(Sender: TObject);
begin
RvProject1.Execute;
end;

procedure TForm17.RvCustomConnection1GetCols(Connection: TRvCustomConnection);
begin
 Connection.WriteField('FieldText1', dtString, 30, '', '');
  Connection.WriteField('FieldMemo1', dtMemo, 30, '', '');
end;

procedure TForm17.RvCustomConnection1GetRow(Connection: TRvCustomConnection);
var
  s: string;
  Buffer: PChar;
begin
  s := 'Meine Info für das Textfeld';
  Connection.WriteStrData('', S);
  GetMem(Buffer, Length(Memo1.Text) + 1);
  StrCopy(Buffer, PChar(Memo1.Text));
  Connection.WriteBlobData(Buffer^, Length(Memo1.Text));
  FreeMem(Buffer);
end;

procedure TForm17.RvCustomConnection1Open(Connection: TRvCustomConnection);
begin
Connection.DataRows := 1;
end;

end.

[Code]

Hi,

danke Dir Thomas. Es hat an der *.rav gelegen. Ich hatte das Memo-Feld im Report falsch benannt. Man schaut zigmal auf einer Sache und bemerkt so banale Sachen nicht. Bitte entschuldige.

Gruß
Klaus

[merlin17]

Klaus,

wichtig ist, dass es klappt ... weiterhin viel Spass mit Rave Reports!! :cheers:


;-) thomas, TeamNevrona