перевести код с vb в delphi

[fize]

Dim bytesw, n As Integer
Dim rx As String

Dim bytesTx() As String = {Chr(&H4C) & Chr(&H1D) & Chr(&H1D) & Chr(&H1F) & Chr(&H2) & Chr(&HD) & Chr(&H98) _
, Chr(&H42) & Chr(&H10), Chr(&H58), Chr(&H32), Chr(&H68) & Chr(&H1), Chr(&H67), Chr(&H68) & Chr(&H0), Chr(&H66), Chr(&HA5)}


FT_SetDtr(FT_Handle)

for n = 0 to 1

FT_Status = FT_Write_String(FT_Handle, bytesTx(n), Len(bytesTx(n)), bytesw)
If FT_Status <> FT_OK Then
Exit Sub
End If
Sleep(300)
rx = my_read()
next




My_MadQueue(1)
Sleep(200)
My_MadQueue(&H64)
Sleep(200)
FT_SetBaudRate(FT_Handle, FT_BAUD_115200)


For n = 2 To 8

FT_Status = FT_Write_String(FT_Handle, bytesTx(n), Len(bytesTx(n)), bytesw)
If FT_Status <> FT_OK Then
Exit Sub
End If
Sleep(500)
rx = my_read()
Next


Sleep(10)
Clear_USB_Device_DTR()
Purge_USB_Device_Out()
Sleep(10)
Purge_USB_Device_In()
Sleep(10)

если это не сложно помогите

[raxp]

скажем так, переводить тут особо нечего, vb под порты удобнее заточен и нюансы работы из delphi будут иные, но... если вы работаете с ftdi по usb, то под delphi есть специально заточенный модуль с хэдерами.

пример 1 2 3 (читать все, это поможет в понимании)

[fize]

вы немного не поняли. этот код переводит ftdi в режим f-bus для дальнейшей работы. я в этом vb вообще ничего не понимаю. мне на дельфи просто проще будет

[raxp]

вы тоже не поняли, зайдите по ссылкам, там весь код на delphi/
и доки на работу с ftdi почитать-бы вам, и либа уже есть для работы из delphi, чего еще для счастья нужно

теперь что касается трансляции кода, с чего вы решили, что это "FT_SetDtr" есть в delphi по-умолчанию? (остальные куски есть в хэдерах) вы вырвали кусок из общего контекста, а где описание цей функи? вот вам и предлагается полный материал со спецификациями, примерами и хэдерами для работы с ftdi/

начну, а вы продолжите...

var
 bytesw: array of integer;
 n: integer;
 rx: array of String;

 bytesTx: array[0..8] of String;
begin

 bytesTx[0]:= Chr($4C) + Chr($1D)  + Chr($1D)  + Chr($1F) + Chr($2) + Chr($D) + Chr($98); 
 bytesTx[1]:= 
...

 FT_SetDtr(FT_Handle) // ищите аналог в хэдерах DLP- D2X

 for n:= 0 to 1 do begin
  FT_Status:= FT_Write_String(FT_Handle, bytesTx[n], Length(bytesTx[n]), bytesw) // ищите аналог
  If FT_Status <> FT_OK Then break;
 end;

 Sleep(300);
 my_read(@rx[0]); // опять-же зависит от реализации вырванной вами из контекста my_read

...

upd
-------

ну по первой ссылке там точно ничего нет т.к тема моя. в остальных что то про ftdi и говорится только не нашел как перевести в фбас.

там все по вашей теме и не прикрывайтесь fbus-ом...
ну чего мы ленимся, разжеванное не есть лучшее, читаем доки

[fize]

ну по первой ссылке там точно ничего нет т.к тема моя. в остальных что то про ftdi и говорится только не нашел как перевести в фбас. если не сложно вам будет можно поконкретенее ссылочу? я уже неделю ложусь в 5 утра и встаю в 1 дня. вообще не высыпаюсь просто покоя нет. закрываю глаза и тут же сыпятся всякие integer и string

[SkyM@n]

Сообщение от fize

я уже неделю ложусь в 5 утра и встаю в 1 дня. вообще не высыпаюсь просто покоя нет.

попробуйте ложиться в 10-11 и в ставать в 6-7. Тут не лечебница, а форум.

[Greblin]

я уже неделю ложусь в 5 утра и встаю в 1 дня. вообще не высыпаюсь просто покоя нет. закрываю глаза и тут же сыпятся всякие integer и string

Ничего себе, за 8 часов не высыпаться. Я за двое суток столько не сплю иногда

[fize]

raxp этот кусок кода добыл тут http://forum.gsmhosting.com/vbb/show...61&postcount=5 там же есть и функция my_read

[raxp]

мда... ну если спецификацию по работе с ftdi вы не смотрели, может в хедеры потрудитесь заглянуть...

unit D2XXUnit;

interface
Uses Windows,Forms,Dialogs;

Type FT_Result = Integer;

// Exported Functions
Function Open_USB_Device : FT_Result;
Function Close_USB_Device : FT_Result;
Function Write_USB_Device_Buffer( Write_Count : Integer ) : Integer;

Function Read_USB_Device_Buffer( Read_Count : Integer ) : Integer; - ЭТА ФУНКЦИЯ ВАМ
    НИ О ЧЕМ НЕ ГОВОРИТ?

Function Reset_USB_Device : FT_Result;
Function Purge_USB_Device_Out : FT_Result;
Function Purge_USB_Device_In : FT_Result;
Function Set_USB_Device_RTS : FT_Result;
Function Clr_USB_Device_RTS : FT_Result;
Function Set_USB_Device_DTR : FT_Result;
Function Clr_USB_Device_DTR : FT_Result;
Function Set_USB_Device_BaudRate : FT_Result;
Function Set_USB_Device_DataCharacteristics : FT_Result;
Function Set_USB_Device_FlowControl : FT_Result;
Function Get_USB_Device_ModemStatus : FT_Result;
Function Set_USB_Device_Chars : FT_Result;
Function Set_USB_Device_TimeOuts(ReadTimeOut,WriteTimeOut:DWord) : FT_Result;
Function Get_USB_Device_QueueStatus : FT_Result;

[fize]

уже разобрался