Скачать: CL | DM;

Передача файлов через Async32   Найти похожие ветки 

← →
Новик ©   (2003-04-03 09:38) [0]

Люди! Кто работал с библиотекой Async? Объясните, где у меня ошибка. Устанавливаю соединение между двумя модемами и передаю файл (например с:\rar.rar)с того, кто набрал номер тому кто поднял трубку.

procedure TForm1.VaModem21Connect(Sender: TObject;
const ConnectString: String);
begin
Memo1.Lines.Add("Соединение установлено: "+ConnectString);
try
if bAct then //если модем сам набрал номер передаем файл
begin
VaZModem1.Files.Clear;
VaZModem1.Files.Add("C:\rar.rar");
VaZModem1.Mode := tmUpload;
VaZModem1.Execute;
end
else //если модем поднял трубку принимаем файл
begin
VaZModem1.TargetFolder:=ExtractFilePath(Application.ExeName);
VaZModem1.Mode := tmDownload;
VaZModem1.Execute;
end;
end;

В методе Execute программа ждет положенную минуту и после ее истечению на модеме - отправителе выдается Error1, а на модеме, принимающем файл, срабатывает событие NoCarrier. То же самое происходит с X и YModem"ами. Может кто сталкивался, а то внедряться в дебри TAPI совсем не хочется.

---

← →
Новик ©   (2003-04-06 19:27) [1]

По ходу никто не работал, что же будем искать...

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.016 c