从CCD中读取的数据存在缓冲区中,怎么样能快速的将其存为JPEG格式的文件
解决方案 »
- 怎么结合扫描枪和电子磅
- Delphi 7的WriteProcessMemory被小红伞报毒?!
- 请教,如何用delphi批量设置excel一行或者一列单元格的计算公式?!
- delphi能不能使用vc,或是bcb写的lib库啊
- 字符操作问题。具体请看内容。
- ********字符串函数大全************
- 为什么我的dll会出现没有接入点?
- 感谢棒棒糖之二
- 怪异状况:程序编译好后程序中所有的错误信息、异常信息统统不返回??!困惑中...
- UDPServer做DLL,会提高效率吗
- CXGRID中的字段如何能以0.00的格式显示
- 如何解决Debug session in progress,Terminate?
因为对于流都有通用的savetofile方法
aStream.WriteBuffer(m_pImageBuffer[BufferIndex]^,(1024*768*3));
aJpeg:=TJpegImage.Create;
aJpeg.LoadFromStream(aStream);
aJpeg.CompressionQuality := 10;
aJpeg.Compress; aJpeg.SaveToFile(DestName); 我这段程序有问题吗?
运行中不报错,但存的JPG文件0字节
aStream:=TMemoryStream.Create;
aStream.WriteBuffer(bfh,sizeof(BITMAPFILEHEADER));
aStream.WriteBuffer(m_pBitmapInfo^,sizeof(BITMAPINFOHEADER));
aStream.WriteBuffer(m_pImageBuffer[BufferIndex]^,dwImageSize); aBitmap:=TBitmap.Create;
aBitmap.LoadFromStream(aStream);
aBitmap.SaveToFile(DestName);
但如果这样存就没有问题了
hFile:=FileCreate(DestName); if not (hFile = INVALID_HANDLE_VALUE) then
begin
FileWrite(hFile,bfh,sizeof(BITMAPFILEHEADER));
FileWrite(hFile,m_pBitmapInfo^,sizeof(BITMAPINFOHEADER));
FileWrite(hFile,m_pImageBuffer[BufferIndex]^,dwImageSize);
end; FileClose(hFile);
为什么?????
aStream:=TMemoryStream.Create;
aStream.LoadFromFile(DestName); showmessage('Stream Size='+inttostr(aStream.Size)); aBitmap:=TBitmap.Create;
aBitmap.LoadFromStream(aStream);
aBitmap.SaveToFile('0m.bmp');
同来学习了,
摄像头返回的是一个jpg图像在内存中的地址,到现在都不知道该怎么读出来