Forum: Programmieren allgemein
by Zodi,
1. Jul 2018
Also wenn ich es Peer PGN stat JPG versuche habe ich das selbe Problem.
Wenn ich die Routine allerdings so schreibe dann Funktionierts und ich kann die BMP in einen Stream schreiben und dann verschicken allerdings ist die BMP dann 14MB gross und nicht 179KB wie ein PNG.
function SaveBitmapToFile(HBM: HBitmap;BitCount: word): string;
const
BMType = $4D42;
type
TBitmap = record
...
Forum: Programmieren allgemein
by Zodi,
1. Jul 2018
Hi Delphianer.
Ich versuche mich gerade an einem TEAMVIEWER.
Dazu erzeuge ich einen Screenshot und wandle das BITMAP in ein JPEG um.
Nun will ich die JPEG in ein MemoryStream schreiben und mit SetString in einen String umwandeln damit ich ihn später über die Sockets versenden kann.
Für die Streams verwende ich die CompressionsStreamUnit.
Leider meldet mir der Compiler immer...