Guten Abend,
da stimmt mit Deinen begin-end Blöcken etwas nicht.
Delphi-Quellcode:
if leftstr(empfangen,length('Screenshot'))='Screenshot' then
begin
FreeAndNil(sM);
Bmp:=TBitmap.Create;
Jpeg:=TJpegImage.Create;
sM:=TMemoryStream.Create;
try
ScreenShot(bmp);
Jpeg.CompressionQuality:=strtoint(rightstr(empfangen,length(empfangen)-length('Screenshot')));
Jpeg.Assign(Bmp);
Jpeg.SaveToStream(sM);
finally
Jpeg.Free;
Bmp.Free;
end;
Form1.Server.socket.SendText(IntToStr(sM.Size));
// Empfänger hat Größe erhalten, das senden der Datei wird durchgeführt
If empfangen='ok' then
begin
Form1.Server.socket.SendBuf(sM.Memory^, sM.Size);
//Cd Laufwerk öffnen
exec := Socket.ReceiveText;
if exec = 'cd_open' then
begin
mciSendstring('SET CDAUDIO DOOR OPEN WAIT', nil, 0, Self.Handle)
end
else
Vielleich magst Du das einmal selbst überprüfen.
Wenn Du den Code richtig formatierst kommst Du sehr wahrscheinlich selber
ganz schnell auf den Fehler.
Grüße
Klaus