Guten Morgen
Hi Carsten
Bei mir steckt da wirklich der Dateiname drin.
dname=dateiname(int1.GetData)
ord=ordner(int1.GetData)
ord=ord.Replace("file:///","")
ImageView1.Bitmap=LoadBitmap(ord,dname)
IMAGE WIRD ANGEZEIGT
Sub ordner(name As String) As String
'ermittelt aus dem kompletten datei-namen den Ordnername
Dim s As String
s = name
Dim filename, folder As String
Dim i As Int
i = s.LastIndexOf("/")
filename = s.SubString(i + 1)
folder = s.SubString2(0, i)
Log(folder)
Log(filename)
Return folder
End Sub
Sub dateiname(name As String) As String
'ermittelt aus dem kompletten datei-namen den dateinamen
Dim s As String
s = name
Dim filename, folder As String
Dim i As Int
i = s.LastIndexOf("/")
filename = s.SubString(i + 1)
folder = s.SubString2(0, i)
Log(folder)
Log(filename)
Return filename
End Sub
Geht eben nur mit Image.
Hier die Fehlermeldung von "GetPathFromContentResult(UriString As String) As String
An errror has occurred in sub:
main_getpathfromcontententresult (java line:274) java.lang.RuntimeExeption:Object should first be initialized(Cursor).
Ich dachte an dieser Stelle ich brauch die getpathfrom... gar nicht.
Funktioniert mit Image eiwandfrei.
Mittlerweile hat sich aber gezeigt, dass es mit anderen Dateien (xml,txt...)
wahrscheinlich nicht funktioniert.D.h. die Verknüpfung mit der "Aktion ausführen mit" - Liste geht mit anderen Dateiendungen nicht.:BangHead:
Eventuell hast Du eine Idee ...
Gruß
Peter
