Título: leer archivo con api's
Publicado por: krackwar en 4 Mayo 2008, 04:07 am
bueno, e estado viendo i probando como abrir archivos i leerlos con api's pero no me a resultado nadaaa :(¿alguien me pudiera ayudar por favor? s4lu2!
Título: Re: leer archivo con api's
Publicado por: naderST en 4 Mayo 2008, 04:20 am
porque no usas Open????
Título: Re: leer archivo con api's
Publicado por: krackwar en 4 Mayo 2008, 04:22 am
no lo quiero usar ya que estoy aprendiendo asm y quiero programar en las dos casi = , ya que asi voy practicando asm por4 mientras que uso vb6.
Título: Re: leer archivo con api's
Publicado por: Freeze. en 4 Mayo 2008, 05:26 am
Private Declare Function OpenFile Lib "kernel32" Alias "OpenFile" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long
Título: Re: leer archivo con api's
Publicado por: krackwar en 4 Mayo 2008, 05:28 am
i para leer el archivo :-\???gracias por la respuesta
Título: Re: leer archivo con api's
Publicado por: Freeze. en 4 Mayo 2008, 05:44 am
Declare Function ReadFile Lib "kernel32" Alias "ReadFile" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, lpOverlapped As OVERLAPPED) As Long
Todo es cuestion de usar la Api-Guide ;)
Título: Re: leer archivo con api's
Publicado por: krackwar en 4 Mayo 2008, 05:53 am
gracias!!!!
Título: Re: leer archivo con api's
Publicado por: seba123neo en 4 Mayo 2008, 05:55 am
Hola,algo asi?? En un Modulo(bas):Option Explicit
Private Type OVERLAPPED ternal As Long ternalHigh As Long offset As Long OffsetHigh As Long hEvent As Long End Type
Public Declare Function CreateFile Lib "kernel32" Alias "CreateFileW" (ByVal lpFileName As Long, ByVal dwDesiredAccess&, ByVal dwShareMode&, ByVal lpSecurityAttributes&, ByVal dwCreationDisposition&, ByVal dwFlagsAndAttributes&, ByVal hTemplateFile&) As Long Public Declare Function ReadFile Lib "kernel32.dll" (ByVal hFile As Long, ByRef lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, ByRef lpNumberOfBytesRead As Long, ByRef lpOverlapped As OVERLAPPED) As Long Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject&) As Long Public Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long Public Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Public Const GENERIC_READ As Long = &H80000000 Public Const GENERIC_WRITE As Long = &H40000000 Public Const FILE_SHARE_READ As Long = &H1& Public Const FILE_SHARE_WRITE As Long = &H2& Public Const CREATE_NEW As Long = 1& Public Const CREATE_ALWAYS As Long = 2& Public Const OPEN_EXISTING As Long = 3& Public Const OPEN_ALWAYS As Long = 4& Public Const TRUNCATE_EXISTING As Long = 5& Public Const FILE_BEGIN As Long = 0
Public Function OpenTextFile(FileName As String) As String Dim FileSize As Long Dim hFile As Long Dim lOverLapped As OVERLAPPED Dim nReadRetVal As Long Dim TxtBytes() As Byte Dim Ret As Long Dim I As Integer Dim Start As Long hFile = CreateFile(StrPtr(FileName), GENERIC_READ, FILE_SHARE_READ, 0&, OPEN_EXISTING, 0&, 0&) If hFile = -1 Then MsgBox "Error abriendo el archivo", vbCritical, "Error" Else FileSize = GetFileSize(hFile, 0) ReDim TxtBytes(FileSize) As Byte Start = 0 Call SetFilePointer(hFile, Start, 0, FILE_BEGIN) nReadRetVal = ReadFile(hFile, TxtBytes(0), UBound(TxtBytes), Ret, lOverLapped) If nReadRetVal = 0 Then MsgBox ("Error para leer el archivo") Else For I = LBound(TxtBytes) To UBound(TxtBytes) OpenTextFile = OpenTextFile & Chr(TxtBytes(I)) Next End If End If CloseHandle hFile End Function
En El Formulario:Private Sub Form_Load() MsgBox OpenTextFile("c:\a.txt") End Sub ahi te lee el archivo de texto.. saludos.
Título: Re: leer archivo con api's
Publicado por: ~~ en 4 Mayo 2008, 13:37 pm
Creo q ya te lo contesté, pero weno. Con CreateFile abres el archivo, con GetFileSize obtienes su tamaño y con ReadFile lo lees. Si no tb puedes mapearlo en memoria y acceder a el trankilamente usando CreateFile para abrirlo, CreateFileMapping y MapViewOfFile.
Usa CloseHandle con los handles que te dan CreateFile y CreateFileMapping y UnmapViewOfFile con el de MapViewOfFile
Título: Re: leer archivo con api's
Publicado por: cast0r en 14 Julio 2008, 14:59 pm
yo tambien estoy intentando abrir un archivo en binario con las apis, estoy utilizando Createfile pero al intententar abrir el archivo que esta siendo ejecutado me da como handle -1, por lo tanto luego no lo puedo leer con readfile, alguna sugerencia de que estoy haciendo mal.. gracias
Título: Re: leer archivo con api's
Publicado por: krackwar en 14 Julio 2008, 16:25 pm
Const MOVEFILE_REPLACE_EXISTING = &H1 Const FILE_ATTRIBUTE_TEMPORARY = &H100 Const FILE_BEGIN = 0 Const FILE_SHARE_READ = &H1 Const FILE_SHARE_WRITE = &H2 Const CREATE_NEW = 1 Const OPEN_EXISTING = 3 Const GENERIC_READ = &H80000000 Const GENERIC_WRITE = &H40000000 Private Declare Function SetVolumeLabel Lib "kernel32" Alias "SetVolumeLabelA" (ByVal lpRootPathName As String, ByVal lpVolumeName As String) As Long Private Declare Function WriteFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToWrite As Long, lpNumberOfBytesWritten As Long, ByVal lpOverlapped As Any) As Long Private Declare Function ReadFile Lib "kernel32" (ByVal hFile As Long, lpBuffer As Any, ByVal nNumberOfBytesToRead As Long, lpNumberOfBytesRead As Long, ByVal lpOverlapped As Any) As Long Private Declare Function CreateFile Lib "kernel32" Alias "CreateFileA" (ByVal lpFileName As String, ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, ByVal lpSecurityAttributes As Any, ByVal dwCreationDisposition As Long, ByVal dwFlagsAndAttributes As Long, ByVal hTemplateFile As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long Private Declare Function SetFilePointer Lib "kernel32" (ByVal hFile As Long, ByVal lDistanceToMove As Long, lpDistanceToMoveHigh As Long, ByVal dwMoveMethod As Long) As Long Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long Private Declare Function GetFileSize Lib "kernel32" (ByVal hFile As Long, lpFileSizeHigh As Long) As Long Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal dwFlags As Long) As Long Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Form_Load() 'KPD-Team 1998 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim sSave As String, hOrgFile As Long, hNewFile As Long, bBytes() As Byte Dim sTemp As String, nSize As Long, Ret As Long 'Ask for a new volume label sSave = InputBox("Please enter a new volume label for drive C:\" + vbCrLf + " (if you don't want to change it, leave the textbox blank)") If sSave <> "" Then SetVolumeLabel "C:\", sSave End If 'Create a buffer sTemp = String(260, 0) 'Get a temporary filename GetTempFileName "C:\", "KPD", 0, sTemp 'Remove all the unnecessary chr$(0)'s sTemp = Left$(sTemp, InStr(1, sTemp, Chr$(0)) - 1) 'Set the file attributes SetFileAttributes sTemp, FILE_ATTRIBUTE_TEMPORARY 'Open the files hNewFile = CreateFile(sTemp, GENERIC_WRITE, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0) hOrgFile = CreateFile("c:\config.sys", GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0) 'Get the file size nSize = GetFileSize(hOrgFile, 0) 'Set the file pointer SetFilePointer hOrgFile, Int(nSize / 2), 0, FILE_BEGIN 'Create an array of bytes ReDim bBytes(1 To nSize - Int(nSize / 2)) As Byte 'Read from the file ReadFile hOrgFile, bBytes(1), UBound(bBytes), Ret, ByVal 0& 'Check for errors If Ret <> UBound(bBytes) Then MsgBox "Error reading file ..." 'Write to the file WriteFile hNewFile, bBytes(1), UBound(bBytes), Ret, ByVal 0& 'Check for errors If Ret <> UBound(bBytes) Then MsgBox "Error writing file ..." 'Close the files CloseHandle hOrgFile CloseHandle hNewFile 'Move the file MoveFileEx sTemp, "C:\KPDTEST.TST", MOVEFILE_REPLACE_EXISTING 'Delete the file DeleteFile "C:\KPDTEST.TST" Unload Me End Sub
Título: Re: leer archivo con api's
Publicado por: cast0r en 14 Julio 2008, 16:43 pm
Krackwar por lo que veo en el codigo que posteaste lo que hace es una copia temporal de el archivo en ejecucion y luego abre la copia para obtener el handle y leerlo, no hay una manera con createfile que haga lo mismo que este codigo, o con alguna otra api.
Open app.path & "\" & app.exename for binary as #1
quiero hacerlo solo con apis para luego pasarlo a ASM
Título: Re: leer archivo con api's
Publicado por: krackwar en 14 Julio 2008, 17:00 pm
Krackwar por lo que veo en el codigo que posteaste lo que hace es una copia temporal de el archivo en ejecucion y luego abre la copia para obtener el handle y leerlo, no hay una manera con createfile que haga lo mismo que este codigo, o con alguna otra api.
Open app.path & "\" & app.exename for binary as #1
quiero hacerlo solo con apis para luego pasarlo a ASM
Un code en asm para abrir archivos. http://foro.eduhack.es/index.php?PHPSESSID=e92f7a2ac60d5e7ca408d96925b3793f&topic=659.msg1507#msg1507 Lo abred y obtiene su peso.
|