 31.10.2025, 18:42
31.10.2025, 18:42 Sprache ändern
 Sprache ändern
							
							
							
						 Registrieren
 Registrieren Anmelden
 Anmelden
					
											Sie sind nicht angemeldet.
 
							|   | Quellcode | 
| 1 2 3 4 5 6 7 | Dim iImageStream As IUnknown, Ptr_GdipImage As Long If (CreateStreamOnHGlobal(VarPtr(mybuff(0)), 0, iImageStream) = 0) Then If (GdipLoadImageFromStream(iImageStream, Ptr_GdipImage) <> 0) Then MsgBox "Couldn't GdipLoadImageFromStream!" End If Set iImageStream = Nothing End If | 
-
 
  
  
  
  
  
  
 