CommFort

Теперь всё работает. Спасибо!

Можно пример учёта!?

function fReadJpegImage(bInBuffer: PAnsiChar; var iOffset: Integer): TJpegImage;

var
JpegStream: TJpegStream;
DataSize: DWord;
begin
JpegStream := TJpegStream.Create;
try
DataSize := PDWORD(bInBuffer)^;
Inc(bInBuffer, SizeOf(DWord));
JpegStream.SetPointer(bInBuffer, DataSize);
Result ...