 |
|
13.05.2010, 16:02
|
|
Участник форума
Регистрация: 12.11.2008
Сообщений: 146
С нами:
9207335
Репутация:
21
|
|
repeat
FillChar(Buffer2,SizeOf(Buffer2),0);
d:=recv(Socket1,Buffer2,SizeOf(Buffer2),0);
for i:=1 to d do html:=html+utf8toansi(Buffer2[i]);
memo1.Lines.Add(html);
until d<=0;
В чем ошибка ? Цикл не завершается..
|
|
|
13.05.2010, 20:41
|
|
Познающий
Регистрация: 25.10.2009
Сообщений: 97
С нами:
8707843
Репутация:
15
|
|
В чем ошибка ? Цикл не завершается..
Соеднинение не разрывается. recv должны сама вылететь с 0 (как у тебя написано или с WSAENETRESET)
В заголовке отправляй Connection: close
|
|
|
|
15.05.2010, 19:30
|
|
Познающий
Регистрация: 14.08.2009
Сообщений: 51
С нами:
8811729
Репутация:
123
|
|
Здравствуйте. Требуется помощь с установкой indy 10 на delphi 7
Хочу научиться создавать собственные, хоть и простые, фейки на delphi. Поиск указал мне статью, в которой описывается способ.
Но как видно для работы с интернетом нужна indy 10.
Пробовал сам установить, но никак не выходит, буду признателен за вашу помощь.
Если есть желание помочь, напишите в ПМ.
|
|
|
|
15.05.2010, 19:51
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Всем доброго времени суток! Не подскажите в чём трабл?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var tmp,tmp3:String;
begin
tmp3:='Profiles';
SRC:=TStringList.Create();
SRC.LoadFromFile(get(CSIDL_APPDATA)+'profiles.ini');
tmp:=SRC.Strings[6];
Delete(tmp,1,14);
fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+'\'+key3;
CopyFile(PChar(Full),PChar('C:\key3.db'),false);
end;
В переменную Full записывается полный путь до файла key3.db в папке с FireFox При попытке копировать его возникает ошибка.. Системе не удаётся найти указанный файл
Всё на 100 раз проверил.. Но так и не понял почему ошибка возникает.. Другие файлы копируются нормально.. Антивирусов нет..
Подскажите в чём трабл..
Последний раз редактировалось iGlass; 15.05.2010 в 19:53..
|
|
|
|
15.05.2010, 20:37
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от iGlass
Всем доброго времени суток! Не подскажите в чём трабл?
Код:
procedure TForm1.Button1Click(Sender: TObject);
var tmp,tmp3:String;
begin
tmp3:='Profiles';
SRC:=TStringList.Create();
SRC.LoadFromFile(get(CSIDL_APPDATA)+'profiles.ini');
tmp:=SRC.Strings[6];
Delete(tmp,1,14);
fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+'\'+key3;
CopyFile(PChar(Full),PChar('C:\key3.db'),false);
end;
В переменную Full записывается полный путь до файла key3.db в папке с FireFox При попытке копировать его возникает ошибка.. Системе не удаётся найти указанный файл
Всё на 100 раз проверил.. Но так и не понял почему ошибка возникает.. Другие файлы копируются нормально.. Антивирусов нет..
Подскажите в чём трабл.. Может:
CopyFile(PChar(fullPath),PChar('C:\key3.db'),false );
т.к. я не вижу Full, но есть fullPathю
|
|
|
|
16.05.2010, 07:58
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
=) Эт я ошибся.. Но не из-за этого трабл.. всё равно не хочет копироваться..
Другие версии будут?)
|
|
|
|
16.05.2010, 09:40
|
|
Участник форума
Регистрация: 30.03.2007
Сообщений: 121
С нами:
10060964
Репутация:
52
|
|
Сообщение от iGlass
=) Эт я ошибся.. Но не из-за этого трабл.. всё равно не хочет копироваться..
Другие версии будут?)
В этом куске кода кроме той ошибки, я не нашел. Так что проверяй:
get(CSIDL_APPDATA) - Вот это от куда и что дает?
tmp:=SRC.Strings[6]; - что тут получается.
В общем делай трассировку кода или проверки (MessageBox). Вот кусок добавил если скажет, что файла нет, значит где то в получении пути дело.
PHP код:
...
fullPath:=get(CSIDL_APPDATA)+tmppath+tmp3+'\'+tmp+ '\'+key3;
if not FileExists(fullPath) then
MessageBox(0,PAnsiChar('Путь до файла не существует:' +#13#10+fullPath),'Not File',0);
CopyFile(PAnsiChar(fullPath),PAnsiChar('C:\key3.db'),false);
|
|
|
|
16.05.2010, 10:56
|
|
Познающий
Регистрация: 14.05.2009
Сообщений: 92
С нами:
8944114
Репутация:
5
|
|
Всё, впорос исчерпан =) В константе ошибка была.. =))
|
|
|
|
16.05.2010, 16:02
|
|
Новичок
Регистрация: 05.11.2008
Сообщений: 11
С нами:
9218527
Репутация:
0
|
|
помогите, нужно что бы при нажатии по бутону открываласть программа, пробывал функцию shellexecute но получается ошибка т.к в папке находятся еще и файлы к программе... как можно открыть программу как через проводник, что бы вместе с программой открылись все файлы.. надеюсь объяснил понятно.. спасибо
Пробывал ShellExecute(Handle, 'open', PChar('c:\glob\file.exe'),nil,nil,S W_SHOWNORMAL); не катит, открывает только exe а конфиг который лежит в папке с программой не открывается...
|
|
|
|
16.05.2010, 16:10
|
|
Познающий
Регистрация: 26.02.2010
Сообщений: 76
С нами:
8529323
Репутация:
16
|
|
niva622,
Попробуй запускать с параметрами.
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
