Deutsches Lazarusforum

Ach ich bin doof ;)
Ist ja im Grunde dasselbe Problem wie es schon oben Stand...

ein wenig Modifiziert:
function savePicture(compression: integer; img: TLazIntfImage; Destination: String): boolean;
var
AStream: TMemoryStream;
jpeg: TFPWriterJPEG;
begin
Try
AStream := TMemoryStream.Create ...

Entschuldigung, ich habe mich blöd ausgedrückt:
Ich meinte, das die Dateigröße im Ordner immer gleich bleibt und wenn ich die Datei direkt im Bildbearbeitungsprogramm öffne, stelle ich auch keinen unterschied fest. Sie ist aber dennoch kleiner als das Original, eine Kompression muss stattgefunden ...

Ich habe noch ein Problem gefunden...
Wenn ich die Kompression einstelle, interessiert das der Timage, sowie der TJPEGImage Komponente herzlich wenig...
Es bleibt, so wie ich das bisher gesehen habe, bei 75% - Standarteinstellung vermute ich mal...
jpgimage.CompressionQuality:=TrackBar2.position ...

Habe mal gerade auf Lazarus 0.9.31 r35701 FPC 2.6.1 x86_64-win64-win32/win64 geupdated, allerdings ist das genau das gleiche:
type
Image1: TImage;

begin
Image1.Picture.LoadFromFile(FileNameEdit1.FileName);

Image1.picture.jpeg.Canvas.Font.Style := [fsBold];
Image1.picture.jpeg.Canvas.Brush ...

Wunderbar! Danke theo!

Habe mal eine Funktion daraus gebastelt:
function getTmpJpegCompressionSize(compression: integer; img: TLazIntfImage): integer;
var
sizekb: String;
AStream: TMemoryStream;
jpeg: TFPWriterJPEG;
begin
AStream := TMemoryStream.Create;
jpeg:=TFPWriterJPEG.Create;
jpeg ...

Danke theo! Dein Suchbeispiel hat mich auf etwas entscheidendes aufmerksam gemacht, und nachdem ich noch ein wenig rumprobiert habe, ging es!
1. Ist das der Datentyp WideString und
2. ist der konstant! - Da wäre ich im Leben nicht drauf gekommen... :o

Hier der geänderte Code:
function GetWin32 ...

Danke, es funktioniert, aber nur genau ein mal :o

procedure TForm1.TrackBar2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
AStream: TMemoryStream;
begin
AStream := TMemoryStream.Create;
Image1.Picture.Jpeg.CompressionQuality:=TrackBar2.position;
Image1 ...

Hat hier keiner auch nur im entferntesten eine Idee?

1.entschuldige, da wurden 2 Zeilen verschluckt :o
Hab das aktualisiert.

2.Das savetostream() probiere ich mal aus, danke.
Edit:
AStream := TStream.Create;
Image1.Picture.Jpeg.SaveToStream(AStream);
AStream.Free;
Der gibt mir den fehler "Writing to TStream is not supportet" aus. O.o
Wo ist da ...

Hallo,

Ich habe da ein paar Probleme mit den Timage und TJPEGImage Komponenten:

1. JPEG-Anzeigeproblem
procedure TForm1.Button1Click(Sender: TObject);
begin
jpgimage := TJPEGImage.Create;
jpgimage.LoadFromFile(FileNameEdit1.FileName);

jpgimage.Canvas.Font.Style := [fsBold];
jpgimage.Canvas ...

Hm, weiß das wirklich keiner?

Vielleicht ergibt sich ja über das Wochenende noch was

Hallo Community!

Ich suche nach einer Möglichkeit WMI-abfragen einzusetzen ohne zu viel Code verwenden zu müssen.
Hier ein Teil des Codes den ich zurzeit einsetze:
function GetWin32_OperatingSystemInfo: String;
const
WbemUser ='';
WbemPassword ='';
WbemComputer ='localhost ...

Hallo,

Ich suche seit längerem eine Möglichkeit auf das Active Directory (AD) zuzugreifen um die Description von Computern zu erfragen.
Bisher habe ich noch keine Komponente gefunden die das tun würde - allerdings habe ich von den ADO-Components gehört die es unter Delphi geben soll. Ist es möglich ...

Vor der Anmeldung? Keylogger was?

Ich würde so etwas als Dienst programmieren. Informationen hierzu findest Du in den einschlägigen Windows-C-Foren, musst es dann nur noch nach Pascal umsetzen.

Baba.
Was soll der Scheiß? Warum zum Teufel sollte ich einen Keylogger Programmieren wollen... Ich ...

Aber ich muss es per Lazarus realisieren... deswegen frage ich hier nach.
Wo sollte ich den sonst fragen?

MFG,
Cee