[Alex2030]

Всем добрый день!!! Помогите разобраться
Программа должна получить и передавать по USB порту данные. то есть программа для прошивки. есть Китайский J-Link v8 описано оно тут http://de1fer.ru/?p=146#more-146. дайте совет в какую сторону капать.

[Freeman]

Капать в нос, по 10 капель 3 раза в день.

[Alex2030]

рассматривал эту версию http://www.delphisources.ru/pages/so...bcom_port.html

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

procedure TForm1.Button3Click(Sender: TObject); var   F: TFileStream;   Buf: String;   N, PackSize, PackCount: Integer; begin   Button2.Enabled := False;     Button3.Enabled := False;     Button4.Enabled := False;   FBreak := False;   BComPort1.BaudRate := TBaudRate(ComboBox1.ItemIndex);   if not BComPort1.Open then Exit;  // Открываем порт   Button2.Enabled := True;   F := TFileStream.Create(OpenDialog1.FileName, fmOpenRead); // Открываем файл   try     // Определим размер и количество пакетов.     if F.Size <= BComPort1.OutBufSize then     begin       PackSize := F.Size; PackCount := 1;     end else     begin       PackSize := BComPort1.OutBufSize;       PackCount := F.Size div PackSize;       if (F.Size mod PackSize) > 0 then Inc(PackCount);     end;     ProgressBar1.Max := PackCount;     ProgressBar1.Position := 0;     N := 0; FEmpty := False;     // Передаем имя файла и его размер     BComPort1.WriteStr(ExtractFileName(OpenDialog1.FileName) + ':' +       IntToStr(F.Size) + '[BEGIN]');     repeat       repeat         // Ждем, пока выходной буфер не освободится или пользователь не прервет передачу         Application.ProcessMessages; Sleep(10);       until FEmpty or FBreak;       if FBreak then       // Пользователь прервал передачу. Ожидание конца передачи текущего пакета       begin         repeat           Application.ProcessMessages; Sleep(10);         until FEmpty;         Break;       end;       F.Seek(N * PackSize, soFromBeginning);       if (F.Size - F.Position) < PackSize then  // Последний пакет         PackSize := F.Size - F.Position;       SetLength(Buf, PackSize);       F.Read(Buf[1], PackSize);       FEmpty := False;       BComPort1.WriteStr(Buf);       Inc(N);       ProgressBar1.Position := ProgressBar1.Position + 1;     until N = PackCount;     BComPort1.WriteStr('[END]'); // Строка, идентифицирующая конец передачи   finally     F.Free;     if BComPort1.Close then     begin     Button2.Enabled := True;     Button3.Enabled := True;     Button4.Enabled := True;     end;   end; end;

при запись файла выдает ошибку попытка открыть не существующий ком порт

Админ: учимся правильно форматировать текст!