Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.01.2007, 16:06   #1
NovaC
Пользователь
 
Регистрация: 13.11.2006
Сообщений: 11
По умолчанию WinToDos & CopyFile

Доброе время суток !
После выполнения function CopyFile
процедура WinToDos начинает выдавать какой-то мусор вместо нормальной строки.
CopyFile и WinToDos находятся в dll библиотеке
Причём если в function CopyFile происходит ошибка при IdFTP.Connect то
procedure WinToDos продолжает работать исправно!!!
Причём проблема появляется как с кирилицей так и с латинскими буквами
Помогите пожалуйста разобраться!!!
procedure WinToDos(const WinStr: pchar; var DosStr: pchar);
var
tmp2 : PChar;
begin
tmp2 := AllocMem(length(WinStr) + 1);
if CharToOem(PChar(WinStr),tmp2) then
DosStr := tmp2
else DosStr := '';
FreeMem(tmp2);
end;
function CopyFile (Copy{Put, Get}, Host, UserName, Password, FTPDir, SourceFile, PutFile : pchar) : boolean;
var
IdFTP : TIdFTP;
begin
result := false;
IdFTP := TIdFTP.Create(nil);
IdFTP.Host := pchar(Host);
IdFTP.UserName := pchar(UserName);
IdFTP.Password := pchar(Password);
try
if IdFTP.Connected = false
then IdFTP.Connect;
except
MessageDlg('Ошибка : IdFTP.Connect!',mtError, [mbOK],0);
IdFTP.Abort;
IdFTP.Free;
exit;
end;
if trim(FTPDir) <> '' then IdFTP.ChangeDir(FTPDir);
try
if trim(Copy) = 'Put' then IdFTP.Put(SourceFile,PutFile,true);
if trim(Copy) = 'Get' then IdFTP.Get(SourceFile,PutFile,true);
except
MessageDlg('Ошибка : IdFTP.' + pchar(Copy) + '()!',mtError, [mbOK],0);
IdFTP.Abort;
IdFTP.Free;
exit;
end;
IdFTP.Disconnect;
IdFTP.Free;
result := true;
end;
Заранее спасибо за ответ . . .
NovaC вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Копирование файлов с помощью copyfile mopozoff Общие вопросы Delphi 3 13.06.2008 12:59
CopyFile Airou Общие вопросы Delphi 15 22.05.2008 14:55
помогите с функцией CopyFile vizor9 Свободное общение 16 16.06.2007 20:13
Проблема с CopyFile mixacb Win Api 7 12.02.2007 20:55