unsigned char SendData[] =
{
0x1b,'$',
'H', 'e', 'l', 'l', 'o', ' ',
'W', 'o', 'r', 'l', 'd',
};
MySocketSend(MySocket, SendData, sizeof(SendData));
преобразование кода Си в Delphi
Доброго времени суток уважаемые программисты. В очередной раз хочу вас побеспокоить.
Имеется такой код на Си
Работа его заключается в очистке терминала от всех символов и печать на нем текста Hello world.
Все бы ничего, да только надо мне этот код на delphi, а как это сделать, я к сожалению не знаю.
Несколько предположений все таки сделал, но они не работают.
Итак, первое Unsigned Char в Delphi можно представить как Word, ну или Byte. Таким образом получится:
Но не понимает Delphi данные в строке sdbuff := 0x1b;, говорит Missing operator or semicolon. То есть не хочет читать данные в шестнадцатиричном представлении.
Я очень прошу подсказать, что я тут не так делаю. Да и вообще, как послать чудо терминалу такую команду?
Имеется такой код на Си
Код:
Работа его заключается в очистке терминала от всех символов и печать на нем текста Hello world.
Все бы ничего, да только надо мне этот код на delphi, а как это сделать, я к сожалению не знаю.
Несколько предположений все таки сделал, но они не работают.
Итак, первое Unsigned Char в Delphi можно представить как Word, ну или Byte. Таким образом получится:
Код:
sdbuff: Word;
sdbuff := 0x1b;
Winsock.send(Sock, sdbuff, 256, 0);
sdbuff := 0x1b;
Winsock.send(Sock, sdbuff, 256, 0);
Но не понимает Delphi данные в строке sdbuff := 0x1b;, говорит Missing operator or semicolon. То есть не хочет читать данные в шестнадцатиричном представлении.
Я очень прошу подсказать, что я тут не так делаю. Да и вообще, как послать чудо терминалу такую команду?
Такс, вопрос решился:
Как теперь вместо текста '$Hello World', подставить переменную?
Код:
var
sdbuff: String;
begin
sdbuff := #$1b'$Hello World';
Winsock.send(Sock, sdbuff[1], Lenght(sdbuff), 0);
end;
sdbuff: String;
begin
sdbuff := #$1b'$Hello World';
Winsock.send(Sock, sdbuff[1], Lenght(sdbuff), 0);
end;
Как теперь вместо текста '$Hello World', подставить переменную?
Ну если sdbuff типа string то вроде можно просто плюсовать...
Если уж оно совсем запротивится, то можно и так попробовать:
Ну это еще нужно поэксперементировать.... нужен там $0 или не нужен...
Если уж оно совсем запротивится, то можно и так попробовать:
Код:
sdbuff := #$1b'$0' + YourVariable;
Ну это еще нужно поэксперементировать.... нужен там $0 или не нужен...
Поразительно. Так сразу и в точку. Дело в том, что я уже на другом форуме решил этот вопрос и проблема была именно в невнимательности. Достаточно было добавить '$', и все заработало.
Просто прибор, с которым приходится работать не очень понятен. И мануал по нему скудный. Вот и тыкаюсь куда нипопадя.
Спасибо за ответ, кстати!!!
Просто прибор, с которым приходится работать не очень понятен. И мануал по нему скудный. Вот и тыкаюсь куда нипопадя.
Спасибо за ответ, кстати!!!
За ответ пожалуйста, спасибо что пользуетесь услугами нашЫх авиалиний)
Модеры - ссори за оффтоп, но хотелось бы узнать - что за девайс-то такой со скудными мануалами?
Модеры - ссори за оффтоп, но хотелось бы узнать - что за девайс-то такой со скудными мануалами?
Shuttle scantech sg15. Мануал есть, но толи прошивка не соотвествует коммандам описанным в нем, толи я что то не так делаю.
В общем, если придется работать, могу скинуть исходники. Но за этим в приват.
В общем, если придется работать, могу скинуть исходники. Но за этим в приват.