Hallo,
ich wollte dieses Beispiel auch gerade mal nachbauen, hab also einen Drucker eingerichtet, einen IDTCPSERVER auf 9100 gesetzt und etwas gedruckt. Ich empfange aber nur 1-3 Byte mit "kryptischen" Zeichen. Diesmal war es ein "weiblich"-Symbol.
Ich musste allerdings den Quelltext an Indy10 anpassen. Habe ich da etwas falsch gemacht?
Delphi-Quellcode:
procedure TForm3.IdTCPServer1Execute(AContext: TIdContext);
var
DataStream, FileStream : TStream;
begin
DataStream := TMemoryStream.Create;
//Diese Zeile wurde geändert. Ich habe Indy10
AContext.Connection.IOHandler.ReadStream(DataStream, -1, true);
ShowMessage(Format('Es wurden %d Byte empfangen', [DataStream.Size]));
FileStream := TFileStream.Create('c:\teest.txt', fmCreate);
DataStream.Position := 0;
FileStream.CopyFrom(DataStream, DataStream.Size);
FileStream.Free;
DataStream.Free;
end;
Woran könnte es liegen?
Danke im Voraus