<html>
<head>
<style><!--
.hmmessage P
{
margin:0px;
padding:0px
}
body.hmmessage
{
font-size: 10pt;
font-family:Tahoma
}
--></style>
</head>
<body class='hmmessage'>
<font class="Apple-style-span" face="Tahoma" size="2">The value of pixelFormat is </font><b style="font-family: Tahoma; font-size: 10pt; ">Format24bppRGB</b><div style="font-family: Tahoma; font-size: 10pt; "><br></div><div style="font-family: Tahoma; font-size: 10pt; "><b></b>Here is the code that I use, but I cannot load into a Bitmap. Maybe I don't undesrtand really how to translate the datasource into a bitmap.</div><div style="font-family: Tahoma; font-size: 10pt; "><br></div><div><div><font class="Apple-style-span" face="Tahoma" size="2">Public Sub GuardarBitmap(ByRef bmp As Bitmap, ds As Dataset, xOff As Integer, yOff As Integer, width As Integer, height As Integer, _</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> imageWidth As Integer, imageHeight As Integer)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><span class="Apple-style-span" style="font-family: Tahoma; font-size: 10pt; "><span class="Apple-style-span" style="font-size: 10pt; "> Dim bands As Integer() = New Integer(3) {1, 1, 1, 1}</span></span></div><div><span class="Apple-style-span" style="font-family: Tahoma; font-size: 10pt; "> Dim alpha As Boolean = False</span></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim index As Boolean = False</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim numChannels As Integer = 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim channelSize As Integer = 8</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim ctable As ColorTable = Nothing</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> For i As Integer = 0 To ds.RasterCount - 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim band As Band = ds.GetRasterBand(i + 1)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If Gdal.GetDataTypeSize(band.DataType) > 8 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> channelSize = 16</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Select Case band.GetRasterColorInterpretation()</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Case ColorInterp.GCI_AlphaBand</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = 4</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> alpha = True</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bands(3) = i + 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Exit Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Case ColorInterp.GCI_BlueBand</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If numChannels < 3 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = 3</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bands(0) = i + 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Exit Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Case ColorInterp.GCI_RedBand</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If numChannels < 3 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = 3</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bands(2) = i + 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Exit Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Case ColorInterp.GCI_GreenBand</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If numChannels < 3 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = 3</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bands(1) = i + 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Exit Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Case ColorInterp.GCI_PaletteIndex</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> ctable = band.GetRasterColorTable()</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> index = True</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bands(0) = i + 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Exit Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Case ColorInterp.GCI_GrayIndex</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> index = True</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bands(0) = i + 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Exit Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Case Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If i < 4 AndAlso bands(i) = 0 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If numChannels < i Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = i</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bands(i) = i + 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Exit Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End Select</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Next</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim pixelFormat__1 As PixelFormat</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim dataType__2 As DataType</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim pixelSpace As Integer</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If index Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelFormat__1 = PixelFormat.Format8bppIndexed</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> dataType__2 = DataType.GDT_Byte</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelSpace = 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If numChannels = 1 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If channelSize > 8 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelFormat__1 = PixelFormat.Format16bppGrayScale</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> dataType__2 = DataType.GDT_Int16</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelSpace = 2</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelFormat__1 = PixelFormat.Format24bppRgb</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = 3</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> dataType__2 = DataType.GDT_Byte</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelSpace = 3</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If alpha Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If channelSize > 8 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelFormat__1 = PixelFormat.Format64bppArgb</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> dataType__2 = DataType.GDT_UInt16</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelSpace = 8</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelFormat__1 = PixelFormat.Format32bppArgb</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> dataType__2 = DataType.GDT_Byte</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelSpace = 4</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = 4</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If channelSize > 8 Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelFormat__1 = PixelFormat.Format48bppRgb</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> dataType__2 = DataType.GDT_UInt16</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelSpace = 6</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelFormat__1 = PixelFormat.Format24bppRgb</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> dataType__2 = DataType.GDT_Byte</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pixelSpace = 3</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> numChannels = 3</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim bitmap As New Bitmap(imageWidth, imageHeight, pixelFormat__1)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If index Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> If ctable IsNot Nothing Then</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim iCol As Integer = ctable.GetCount()</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim pal As ColorPalette = bitmap.Palette</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> For i As Integer = 0 To iCol - 1</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim ce As ColorEntry = ctable.GetColorEntry(i)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pal.Entries(i) = Color.FromArgb(ce.c4, ce.c1, ce.c2, ce.c3)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Next</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bitmap.Palette = pal</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Else</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim pal As ColorPalette = bitmap.Palette</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> For i As Integer = 0 To 255</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> pal.Entries(i) = Color.FromArgb(255, i, i, i)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Next</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bitmap.Palette = pal</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End If</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim bitmapData As BitmapData = bitmap.LockBits(New Rectangle(0, 0, imageWidth, imageHeight), ImageLockMode.ReadWrite, pixelFormat__1)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Try</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim strideBMD As Integer = bitmapData.Stride</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Dim buf As IntPtr = bitmapData.Scan0</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> ds.ReadRaster(xOff, yOff, width, height, buf, imageWidth, _</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> imageHeight, dataType__2, numChannels, bands, pixelSpace, strideBMD, _</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> 1)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> Finally</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bitmap.UnlockBits(bitmapData)</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End Try</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> bmp = bitmap</font></div><div><font class="Apple-style-span" face="Tahoma" size="2"><br></font></div><div><font class="Apple-style-span" face="Tahoma" size="2"> End Sub</font></div></div><div style="font-family: Tahoma; font-size: 10pt; "><br></div><div style="font-family: Tahoma; font-size: 10pt; ">Thanks in advanced.</div><div style="font-family: Tahoma; font-size: 10pt; "><br></div><div style="font-family: Tahoma; font-size: 10pt; ">Francisco J.<br><br>Date: Tue, 19 Apr 2011 16:10:27 +0200<br>Subject: Re: [gdal-dev] Problem with GDALDatasetRasterIO.cs and ECW files<br>From: szekerest@gmail.com<br>To: gistdt08@hotmail.es<br>CC: gdal-dev@lists.osgeo.org<br><br>Not sure what is the actual value of 'pixelFormat__1' in your program.<br><br>Best regards,<br><br>Tamas<br><br><br><div class="ecxgmail_quote">2011/4/19 Francisco José Reyes Peralta <span dir="ltr"><<a href="mailto:gistdt08@hotmail.es">gistdt08@hotmail.es</a>></span><br>
<blockquote class="ecxgmail_quote" style="border-left:1px #ccc solid;padding-left:1ex">
<div>
<pre style="font-family:'Times New Roman';font-size:12pt">The parameter is not valid is the error that I get.</pre><pre style="font-family:'Times New Roman';font-size:12pt">I use an adaptation of the source .cs code in <a href="http://VB.NET" target="_blank">VB.NET</a>.</pre>
<pre style="font-family:'Times New Roman';font-size:12pt">Here is part of the code:</pre><pre><span style="font-size:21px"><br></span></pre><pre><font size="4"> Dim pixelFormat As PixelFormat</font></pre><pre><font size="4"><span style="white-space:pre-wrap"> </span>Dim dataType As DataType
Dim pixelSpace As Integer
If isIndexed Then
pixelFormat = PixelFormat.Format8bppIndexed
dataType = DataType.GDT_Byte
pixelSpace = 1
Else
If channelCount = 1 Then
If channelSize > 8 Then
pixelFormat = PixelFormat.Format16bppGrayScale
dataType = DataType.GDT_Int16
pixelSpace = 2
Else
pixelFormat = PixelFormat.Format24bppRgb
channelCount = 3
dataType = DataType.GDT_Byte
pixelSpace = 3
End If
Else
If hasAlpha Then
If channelSize > 8 Then
pixelFormat = PixelFormat.Format64bppArgb
dataType = DataType.GDT_UInt16
pixelSpace = 8
Else
pixelFormat = PixelFormat.Format32bppArgb
dataType = DataType.GDT_Byte
pixelSpace = 4
End If
channelCount = 4
Else
If channelSize > 8 Then
pixelFormat = PixelFormat.Format48bppRgb
dataType = DataType.GDT_UInt16
pixelSpace = 6
Else
pixelFormat = PixelFormat.Format24bppRgb
dataType = DataType.GDT_Byte
pixelSpace = 3
End If
channelCount = 3
End If
End If
End If
<b><span style="font-weight:normal"><b><span style="font-family:'Times New Roman';font-weight:normal;white-space:normal;font-size:medium"><pre style="text-indent:0px !important;font-family:'Times New Roman';font-size:12pt;display:inline !important">And the Error is in the following line:</pre></span></b></span></b></font></pre><pre><font size="4">
Dim bitmap As New Bitmap(imageWidth, imageHeight, pixelFormat__1)</font></pre><pre><font size="4"><br></font></pre><pre><font size="4"><font face="'Times New Roman'">Is possible to read the dataset and write to a bitmap or picturebox without save as file?</font></font></pre>
<pre><font size="4"><font face="'Times New Roman'"><br></font></font></pre><pre><font size="4">Thanks for your reply.</font></pre><pre><font size="4"><br></font></pre><pre><font size="4">Francisco J.</font></pre><pre><font size="4"><br></font></pre><pre><font size="4"><br></font></pre><pre style="font-family:'Times New Roman';font-size:12pt">2011/4/19 Francisco José Reyes Peralta <<a href="http://lists.osgeo.org/mailman/listinfo/gdal-dev" target="_blank">gistdt08 at hotmail.es</a>>
><i> Dear friends, I'm vieweing the *GDALDatasetRasterIO.cs* from the Csharp
</i>><i> samples of GDAL and I'm getting an error in the following line *Bitmap
</i>><i> bitmap = new Bitmap(imageWidth, imageHeight, pixelFormat);* In the *
</i>><i> pixelFormat* argument.
</i>><i>
</i>
Hi,
What is the error message specifically?
Best regards,
Tamas
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <a href="http://lists.osgeo.org/pipermail/gdal-dev/attachments/20110419/cc8baab2/attachment-0001.html" target="_blank">http://lists.osgeo.org/pipermail/gdal-dev/attachments/20110419/cc8baab2/attachment-0001.html</a></pre>
</div>
<br>_______________________________________________<br>
gdal-dev mailing list<br>
<a href="mailto:gdal-dev@lists.osgeo.org">gdal-dev@lists.osgeo.org</a><br>
<a href="http://lists.osgeo.org/mailman/listinfo/gdal-dev" target="_blank">http://lists.osgeo.org/mailman/listinfo/gdal-dev</a><br></blockquote></div><br><div style="visibility:hidden;left:-5000px;z-index:9999;padding:0px;margin-left:0px;overflow:hidden;word-wrap:break-word;color:black;font-size:10px;text-align:left;line-height:130%" id="ecxavg_ls_inline_popup">
</div></div> </body>
</html>