Передача файлов через Async32 [D7, WinME, WinXP]
Новик © (2003-04-03 09:38:00)
Люди! Кто работал с библиотекой 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:00) [1]
По ходу никто не работал, что же будем искать...
Наверх 
ЧАТ |
Орешник |
|
