noyhay
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Цитата:| Можно. Но причём тут ИДЕ ? Заливок всего 2 способа - по АТА и через терминал. |
так у меня же его можно только по PATA подсоединить, без эмуляции.
шнурок есть не хочется портить, сделаю по уму на прямую к rs 232
http://www.hardw.net/forum/topic9964.htm
здесь есть комментарий от Сергея Белова как заливать через терминал, это мне подходит?
Заливал в буфер файлы он как я понимаю программой Zoc 4?
В архиве которым со мной поделились 3 файла VM38G90C.dn, VM38G90C.DN3, VM50D90M.BIN.
Все эти файлы зальются по коду приведенному ниже?
Ниже приведен код, его вписывать в Zoc 4?
буфер сделан в проге "SamsungUtility 18-08-2009 00:20 (c) Wildwhiteash" насколько мне об этом сообщает заголовок основной формы проги и написана она если мне не отшибвает память на VisualBasic6 с применением вставок на API.
теперь разберёмся как и чем....
---
Private Sub cmdOpenFlashFile_Click()
Dim sd As Long
ReDim BuferS(0)
Call openS(1)
If UBound(BuferS()) = 0 Then Exit Sub
ReDim BuferSDLD(UBound(BuferS()))
For sd = 1 To UBound(BuferS())
BuferSDLD(sd) = BuferS(sd)
Next sd
lblFlashSizeSDLD.Caption = Trim(Str(UBound(BuferS()))) + " байт в буфере"
End Sub
собсно сама процедурина открытия файла
------------------------------------------------
Private Sub openS(Filetype As Byte)
Dim OFName As OPENFILENAME
If Filetype = 0 Then OFName.lpstrFilter = "Binary Files (*.bin)" + Chr$(0) + "*.bin" + Chr$(0)
If Filetype = 1 Then OFName.lpstrFilter = "Firmware Files (*.dn)" + Chr$(0) + "*.dn" + Chr$(0)
If Filetype = 2 Then OFName.lpstrFilter = "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
If Filetype = 100 Then OFName.lpstrFilter = "Binary Files (*.bin)" + Chr$(0) + "*.bin" + Chr$(0) + "Firmware Files (*.dn)" + Chr$(0) + "*.dn" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
OFName.lStructSize = Len(OFName)
OFName.hWndOwner = Me.hwnd
OFName.hInstance = App.hInstance
'OFName.lpstrFilter = "Binary Files (*.bin)" + Chr$(0) + "*.bin" + Chr$(0) + "Firmware Files (*.dn)" + Chr$(0) + "*.dn" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
OFName.lpstrFile = Space$(254)
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254)
OFName.nMaxFileTitle = 255
OFName.lpstrInitialDir = "App.Path"
OFName.lpstrTitle = "Открытие файла"
OFName.flags = 0
If GetOpenFileName(OFName) Then
Dim hFile As Long
Dim lpFileSize As Long
Dim BF As Long
hFile = CreateFile(OFName.lpstrFile, GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, 0, 0)
lpFileSize = GetFileSize(hFile, 0)
FileSizeS = lpFileSize
ReDim BuferS(1 To lpFileSize) As Byte
BF = ReadFile(hFile, BuferS(1), UBound(BuferS), 0, ByVal 0&)
Call CloseHandle(hFile)
Else
Exit Sub
End If
End Sub
-----------------
теперь разбираемся что загрузить...
согласно вот этому коду
----
If Filetype = 1 Then OFName.lpstrFilter = "Firmware Files (*.dn)" + Chr$(0) + "*.dn" + Chr$(0)
----
туду нада пхать файлы с расширением *.dn |
Всего записей: 71 | Зарегистр. 29-07-2009 | Отправлено: 00:38 09-12-2012 | Исправлено: noyhay, 00:56 09-12-2012 |
|
Это же просто для красоты. Думаю - не нужно светодиод навешивать. Его можно в винт припаять, если так хочется. 
