German Max. Größe fürs Clipboard

artsoft

Active Member
Licensed User
Longtime User
Hallo zusammen,

frage mich gerade, wie groß ein Text sein darf, den ich ins Clipboard setzen darf bzw. von dort wieder herauslese.

Ich benutze die Clipboard-Lib und mache mal folgendes:

B4X:
Dim s As String
   
    s = "1"
   
    For i = 1 To 1023
   
        s = s & "1"
   
    Next
   
    ' ................... 1 kb
   
    Dim t As String
   
    For i = 1 To 1024
   
        t = t & s
   
    Next
   
    ' ................... 1 MB
   
    Dim u As String
   
    For i = 1 To 5
   
        u = u & t
   
    Next
   
    ' ..................... 5 MB
   
    Dim c As BClipboard
   
    c.setText(u)
   
    ' ....................... Scheint zu klappen!

    Dim x As String
   
    x = c.getText
   
    Dim k As Int
   
    k = x.Length
   
    Msgbox ("Größe: " & k, "Hm...")


In der MsgBox steht dann am Schluss: 5553

5 MB sind das leider nicht.

Wer kann hier helfen.
Danke schon jetzt an alle.

Gruss ARTsoft
 
Top