Overloads Public Sub WriteGeoKey( _
   ByVal fileName As String, _
   ByVal pageNumber As Integer, _
   ByVal geoKey As RasterTagMetadata _
) 

Dim instance As RasterCodecs
Dim fileName As String
Dim pageNumber As Integer
Dim geoKey As RasterTagMetadata
 
instance.WriteGeoKey(fileName, pageNumber, geoKey)

public void WriteGeoKey( 
   string fileName,
   int pageNumber,
   RasterTagMetadata geoKey
)

public:
void WriteGeoKey( 
   String^ fileName,
   int pageNumber,
   RasterTagMetadata^ geoKey
) 

Private geoKeySrcFileName As String
Private geoKeyDestFileName As String

Private Sub WriteGeoKeyExample(ByVal srcFileName As String, ByVal destFileName As String)
   Dim codecs As RasterCodecs = New RasterCodecs()

   geoKeySrcFileName = srcFileName
   geoKeyDestFileName = destFileName

   AddHandler codecs.GeoKeyFound, AddressOf codecs_MyGeyKeyFound
   codecs.EnumGeoKeys(srcFileName, 1)
   RemoveHandler codecs.GeoKeyFound, AddressOf codecs_MyGeyKeyFound

   ' Clean up
   codecs.Dispose()
End Sub

Private Sub codecs_MyGeyKeyFound(ByVal sender As Object, ByVal e As CodecsEnumGeoKeysEventArgs)
   Console.WriteLine("GeoKey: Id={0}, Count={1}, Type={2}, DataLength={3}, Data=", e.Id, e.Count, e.MetadataType, e.Buffer.Length)

   ' Load this GeoKey
   Dim codecs As RasterCodecs = TryCast(sender, RasterCodecs)
   Dim geoKey As RasterTagMetadata = codecs.ReadGeoKey(geoKeySrcFileName, 1, e.Id)

   ' Write it to the destination file
   Console.WriteLine("Wirting this GeoKey to the destination file")
   codecs.WriteGeoKey(geoKeyDestFileName, 1, geoKey)
End Sub

string geoKeySrcFileName;
string geoKeyDestFileName;

void WriteGeoKeyExample(string srcFileName, string destFileName)
{
   RasterCodecs codecs = new RasterCodecs();

   geoKeySrcFileName = srcFileName;
   geoKeyDestFileName = destFileName;

   codecs.GeoKeyFound += new EventHandler<CodecsEnumGeoKeysEventArgs>(codecs_MyGeyKeyFound);
   codecs.EnumGeoKeys(srcFileName, 1);
   codecs.GeoKeyFound -= new EventHandler<CodecsEnumGeoKeysEventArgs>(codecs_MyGeyKeyFound);

   // Clean up
   codecs.Dispose();
}

void codecs_MyGeyKeyFound(object sender, CodecsEnumGeoKeysEventArgs e)
{
   Console.WriteLine("GeoKey: Id={0}, Count={1}, Type={2}, Data Length={3}, Data=", e.Id, e.Count, e.MetadataType, e.Buffer.Length);

   // Load this GeoKey
   RasterCodecs codecs = sender as RasterCodecs;
   RasterTagMetadata geoKey = codecs.ReadGeoKey(geoKeySrcFileName, 1, e.Id);

   // Write it to the destination file
   Console.WriteLine("Wirting this GeoKey to the destination file");
   codecs.WriteGeoKey(geoKeyDestFileName, 1, geoKey);
}

Stream geoKeySrcStream;
Stream geoKeyDestStream;
void WriteGeoKeyExample(Stream inStreamGeyKey, Stream outStreamGeyKey)
{
   RasterCodecs codecs = new RasterCodecs();

   geoKeySrcStream = inStreamGeyKey;
   geoKeyDestStream = outStreamGeyKey;

   codecs.GeoKeyFound += new EventHandler<CodecsEnumGeoKeysEventArgs>(codecs_MyGeyKeyFound);
   codecs.EnumGeoKeys(inStreamGeyKey, 1);
   codecs.GeoKeyFound -= new EventHandler<CodecsEnumGeoKeysEventArgs>(codecs_MyGeyKeyFound);
}

void codecs_MyGeyKeyFound(object sender, CodecsEnumGeoKeysEventArgs e)
{
   Debug.WriteLine("GeoKey: Id={0}, Count={1}, Type={2}, DataLength={3}, Data=", e.Id, e.Count, e.MetadataType, e.Buffer.Length);

   // Load this GeoKey
   RasterCodecs codecs = sender as RasterCodecs;
   RasterTagMetadata geoKey = codecs.ReadGeoKey(geoKeySrcStream, 1, e.Id);

   // Write it to the destination file
   Debug.WriteLine("Wirting this GeoKey to the destination file");
   codecs.WriteGeoKey(geoKeyDestStream, 1, geoKey);
}

Private geoKeySrcStream As Stream
Private geoKeyDestStream As Stream
Private Sub WriteGeoKeyExample(ByVal inStreamGeyKey As Stream, ByVal outStreamGeyKey As Stream)
   Dim codecs As RasterCodecs = New RasterCodecs()

   geoKeySrcStream = inStreamGeyKey
   geoKeyDestStream = outStreamGeyKey

   AddHandler codecs.GeoKeyFound, AddressOf codecs_MyGeyKeyFound
   codecs.EnumGeoKeys(inStreamGeyKey, 1)
   RemoveHandler codecs.GeoKeyFound, AddressOf codecs_MyGeyKeyFound
End Sub

Private Sub codecs_MyGeyKeyFound(ByVal sender As Object, ByVal e As CodecsEnumGeoKeysEventArgs)
   Debug.WriteLine("GeoKey: Id={0}, Count={1}, Type={2}, DataLength={3}, Data=", e.Id, e.Count, e.MetadataType, e.Buffer.Length)

   ' Load this GeoKey
   Dim codecs As RasterCodecs = TryCast(sender, RasterCodecs)
   Dim geoKey As RasterTagMetadata = codecs.ReadGeoKey(geoKeySrcStream, 1, e.Id)

   ' Write it to the destination file
   Debug.WriteLine("Wirting this GeoKey to the destination file")
   codecs.WriteGeoKey(geoKeyDestStream, 1, geoKey)
End Sub