Hello Freunde,
kann bitte mir jemand behilflich sein um wie folgt in DELPHI-XE7 zu schreiben:
- Ein File (Test.dat) als FileStream öffnen und aus Stream Bytenummer 33, 34, 35 und 36 (also Bytes 33-36) als String zu gegebene Variable zuweisen.Die Bytes können auch nicht druckbare chars sein.
Sowas habe ich in Visual Basic-6 wie folgt realiziert aber in Delphi kriege ich leider nicht hin:
VB6 Code:
Private Sub Command1_Click()
Dim FSO As Object
Dim FilePath As String
Dim StreamFile As TextStream
Dim strText As String
Dim idxLength As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
FilePath = App.Path & IIf(Right$(App.Path, 1) <> "\", "\", "") & "Test.dat"
If FSO.FileExists(FilePath) Then
Set FileName = FSO.GetFile(FilePath)
End If
Set StreamFile = FileName.OpenAsTextStream(ForReading, TristateUseDefault)
strText = StreamFile.Read(36) ' // *************Read 36 bytes
Label1.Caption = ConvertIt(Right$(strText, 4)) ' // *************Read 33,34,35,36th byte
StreamFile.Close
Set StreamFile = Nothing
Set FSO = Nothing
End Sub
__________________________________________________ ______________________________________________
Problem habe ich in DELPHI hier :
strText = StreamFile.Read(36) ' // *************Read 36 bytes
Label1.Caption = ConvertIt(Right$(strText, 4)) ' // *************Read 33,34,35,36th byte
Thanx im Voraus
