Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.11.11;
Скачать: CL | DM;

Вниз

COM1   Найти похожие ветки 

 
F@T@L_Err0r ©   (2007-10-16 09:46) [0]

Здравствуйте уважаемые.У меня такой вопрос:как послать по COM порту типизированный файл,например картинку.Желательно с примером.Зараннее спасибо.


 
tesseract ©   (2007-10-16 10:15) [1]

Смотри CreateFile, ReadFile, WriteFile.


 
F@T@L_Err0r ©   (2007-10-16 10:41) [2]

Смотрел пробую выдает ошибку Aceess Voltation...


 
Skyle ©   (2007-10-16 10:43) [3]

Ошибка в 17-й строке.

Код покажите.


 
Dennis I. Komarov ©   (2007-10-16 10:46) [4]

> [3] Skyle ©   (16.10.07 10:43)

В логине :)


 
F@T@L_Err0r ©   (2007-10-16 10:56) [5]

function PostComm(var Buf; size: word): integer; //Передача в порт...
var i: integer;
    f: THandle;
    P1:POverlapped;
    Pic:TPicture;
begin
 pic:=form1.image1.picture;
 result := 0;
 while size >  0 do begin
   if not WriteFile(f,Pic, 1, i, p1) then exit;
   inc(result, i); dec(size);
   Application.ProcessMessages;
   end;
end;


 
tesseract ©   (2007-10-16 11:37) [6]

Мдям, а ты что хотел ? Картинку SaveToStream в память ии из стрима через буфер уже пиши.


 
homm ©   (2007-10-16 11:42) [7]

> [5] F@T@L_Err0r ©   (16.10.07 10:56)
> pic:=form1.image1.picture;
> WriteFile(f,Pic, 1, i, p1)

И что ты по твоему пытаешся записаать?


 
F@T@L_Err0r ©   (2007-10-16 11:43) [8]

homm ©   (16.10.07 11:42)
>И что ты по твоему пытаешся записаать?
Ну я не знаю как по другому...плиз подскажите как???Оч нада.


 
ЮЮ ©   (2007-10-16 11:46) [9]

> Мдям, а ты что хотел ? Картинку SaveToStream в память ии
> из стрима через буфер уже пиши.


А это важно, что писать ("картинку" или указатель на Картинку), при неинициализированных переременных "куда и как писать"?

наблюlать form1. в функции как то тоже ... Бр-р-р...


 
Германн ©   (2007-10-16 14:15) [10]


> типизированный файл,например картинку

Нет слов.


 
homm ©   (2007-10-16 14:18) [11]

> [10] Германн ©   (16.10.07 14:15)

Ага, я тоже это заметил :)


 
Dmitry S ©   (2007-10-16 14:55) [12]


> F@T@L_Err0r ©   (16.10.07 10:56) [5]

Грешно смеятся, но смешно...
Я, наверное, также выглядел, когда учился NTFS разрешения устанавливать.


 
Dmitry S ©   (2007-10-16 14:56) [13]

Еще смешнее, наверное, винде:)))


 
F@T@L_Err0r   (2007-10-16 15:19) [14]

Но все таки как же мне справится с задачей???Памагите плиз...


 
Сергей М. ©   (2007-10-16 15:30) [15]


> как же мне справится с задачей?


Воспользоваться для этой цели любым подходящим готовым компонентом  и не париться.

Для затравки
http://sourceforge.net/projects/tpapro/


 
GrayWolf   (2007-10-16 20:48) [16]

Абсолютно также, как же, как и нетипизированный



Страницы: 1 вся ветка

Текущий архив: 2007.11.11;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.02 c
2-1192618151
sydenis
2007-10-17 14:49
2007.11.11
rasdial


2-1192602435
O.O
2007-10-17 10:27
2007.11.11
ScrollBars в DBGrid


2-1192805649
dreamse
2007-10-19 18:54
2007.11.11
Подскажите как скопировать в переменную последнии несколько


2-1192991104
NiGGa
2007-10-21 22:25
2007.11.11
Delphi5 и константы


10-1139905588
nastya
2006-02-14 11:26
2007.11.11
EIntfCastError