Deutsches Lazarusforum

Du kannst die Ausgabe von TProcess in einer Schleife nach Benutzername/Password untersuchen und per Programm senden.
Siehe Wiki .

Ich hatte von Jahren ein Beispielprogramm zusammengebastelt mit dem Code von hier und da, erinnere mich nicht mehr. Es ist auch gut "dokumentiert", schau es dir an ...

Ping funktioniert wunderbar bei Firebird. Ich verwende immer noch FB 2.5.
Manchmal gehen Benutzer des Programms Kaffee trinken oder irgendwas anderes machen und das Betriebssystem geht in Energiesparmodus. Der Code, den ich in "function DbOnline: Boolean;" gepostet habe, bewirkt, dass die Benutzer ...

Bei FireBird ist es leicht zu prüfen, ob der Server online ist:

if ZConnection1.Ping then begin
//anmelden
end
else ... //Server offline


Manchmal kann es passieren, dass die Verbindung unterbricht, deshalb sende ich immer von SQL-Abfragen ein Ping;


function DbOnline: Boolean;
begin ...

Noch etwas habe ich vergessen zu schreiben, das hier ist falsch:

stretched.Draw(PaintBox1.Canvas,XPos,YPos,True); //<-- das hier
PaintBox1.Refresh;


Weil Paintbox hat kein Bitmap, alles was man dort zeichnet ist flüchtig, man muss OnPaint-Ereignis verwenden, etwa so:

procedure TForm1 ...

Also bei mir macht es, was es machen soll, immer 90 Grad drehen. Ich weiß es nicht, ob du nur bei dem Bespiel-Programm diesen Fehler hast, aber man sieht meistens nicht, weil du PaintBox1.Refresh aufrufst aber PaintBox1.OnPaint nicht verwendest.
Ich habe das hinzugefügt, dann funktionierte es ...

Also wenn du nicht auf Ergebnis von ZConnection warten möchtest und nach bestimmte Zeit selber abbrechen möchtest, dann musst du Threads verwenden. Ein Benutzer, ich glaube Helios war das, hatte vor einigen Jahren Fragen mit Threads und Datenbankverbindungen und er hat gutes Beispiel gehabt, ich ...

Ich habe XRDP nie ausprobiert und VNC ist Schrott, selbst auf Windows Computer.
Ich habe bei uns in der Firma Nomachine installiert und es ist richtig gut, egal wo du auf der Welt bist, ist es so als ob du vor dem Computer sitzt. Das hängt natürlich von deiner Internetverbindung ab, da du es lokal ...

@theo
Es hat geklappt, vielen Dank.

Falls jemand gleiche Frage hat, ich habe das gemacht:

procedure TTestHTTPServer.HandleRequest(var ARequest: TFPHTTPConnectionRequest; var AResponse: TFPHTTPConnectionResponse);
begin
//..dein code
AResponse.SetFieldByName('Content-Disposition','attachment ...

Ich habe eine TFPHttpServer, damit kann man von einer Datenbank PDF-Dateien herunterladen. Der Link sieht so aus:
http://localhost/redownld?renr=1234567.

Der Browser speichert es immer als redownld.pdf. Ich möchte es aber anders benennen, mit Rechnungsnummer usw., kann der Browser bei Response es ...

fpvectorial sieht gut aus, schau mal lazarus\components\fpvectorial\examples\fpvtextwritetest2 an, man muss bei fpvtextwritetest2.pas oben {$define pdf_test} deaktivieren, dann sieht man weitere Möglichkeiten, man kann auch Tabellen erstellen. Die fehlenden Sachen kann man hinzufügen, in dem man ein ...

Dann würde ich den von Jörg vorgeschlagenen Weg gehen, allerdings würde ich jetzt nicht ODT-Format lernen. Ich würde ein ODT-Dokument mit allen möglichen vorkommenden Möglichkeiten, Checkboxen, Bilder, Texte usw., erstellen, dann hast du alle Styles in "styles.xml"-Datei und diese Datei als ...

...
Es geht um Betriebsanweisungen gem. §14 GefStoffV.
...

Es ist kein Antwort auf deine Frage, aber falls die Zielpersonen es nicht bearbeiten sollen, warum erzeugst du keine PDF-Datei, z.B. mit LazReport. Inzwischen kann jeder mit PDF-Dateien umgehen.
Falls man die PDF-Datei bearbeiten möchte ...

Ich bin beim FindObject etwas vorsichtig geworden und prüfe immer ob das bekommene Objekt immer vom richtigen Typ ist. Besonders dann wenn die Reports auch geändert werden könnten. Da kann es dann zu komischen Effekten kommen, wenn wer die Namen nicht beachtet und die die "Memo1" und "Band1 ...

Mein Beispiel funktioniert:

procedure TForm1.Button1Click(Sender: TObject);
var aBand1: TfrBand;
aMemo1: TfrMemoView;
begin
aMemo1:=TfrMemoView(frReport1.FindObject('Memo1'));
if Assigned(aMemo1) then aMemo1.Memo.Text:=TimeToStr(now);

aBand1:=TfrBand(frReport1.FindObject('Band1'));
if ...

Ich glaube du kannst mit folgende Funktionen auf "Bands" und andere Objekte zugreifen:
- TFrReport.Pages[n].FindObjectByID(ID: Integer),
- TFrReport.Pages[n].FindObject(const aName: String): TfrObject;

Einer der größten Fehler bei LazReport ist, dass beim erstellen von Report automatisch ...