Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

COM1 [D6, 2000]

F@T@L_Err0r © (2007-10-16 09:46:00)
Здравствуйте уважаемые.У меня такой вопрос:как послать по COM порту типизированный файл,например картинку.Желательно с примером.Зараннее спасибо.

GrayWolf (2007-10-16 20:48:00) [1]
Абсолютно также, как же, как и нетипизированный

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

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

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

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

F@T@L_Err0r (2007-10-16 15:19:00) [3]
Но все таки как же мне справится с задачей???Памагите плиз...

Dmitry S (2007-10-16 14:56:00) [4]
Еще смешнее, наверное, винде:)))

Dmitry S (2007-10-16 14:55:00) [5]

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

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

homm (2007-10-16 14:18:00) [6]
> [10] Германн © (16.10.07 14:15)

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

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

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

Нет слов.

ЮЮ (2007-10-16 11:46:00) [8]
> Мдям, а ты что хотел ? Картинку SaveToStream в память ии
> из стрима через буфер уже пиши.

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

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

F@T@L_Err0r (2007-10-16 11:43:00) [9]
homm © (16.10.07 11:42)
>И что ты по твоему пытаешся записаать?
Ну я не знаю как по другому...плиз подскажите как???Оч нада.

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

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

tesseract (2007-10-16 11:37:00) [11]
Мдям, а ты что хотел ? Картинку SaveToStream в память ии из стрима через буфер уже пиши.

F@T@L_Err0r (2007-10-16 10:56:00) [12]
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;

Dennis I. Komarov (2007-10-16 10:46:00) [13]
> [3] Skyle © (16.10.07 10:43)

В логине :)

Skyle (2007-10-16 10:43:00) [14]
Ошибка в 17-й строке.

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

F@T@L_Err0r (2007-10-16 10:41:00) [15]
Смотрел пробую выдает ошибку Aceess Voltation...

tesseract (2007-10-16 10:15:00) [16]
Смотри CreateFile, ReadFile, WriteFile.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »