[Delphi] Что за ошибка???

Здравствуйте, что это за ошибка, и как от нее избавится

Скриншот:



Код:

PHP:

site:='http:/site.net/';
url:=site+form1.ComboBox1.Text+form1.Edit4.text;
Responseres:=form1.IdHTTP1.get(url);

Зарание спасибо

 

А idhttp1 создан? idhttp1:=tidhttp.create;
Handleredirect у idhttp1 в true?

 

Да, все есть

 

А это из потока выполняется? Приложение многопоточно?

 

Да, из дополнительного потока

 

При работе с потоками лучше создавать http в потоке. А ты видимо пытаешься обратится из нескольких потоков к одному http.

Создай в потоке следующим образом:

Code:

var
http:tidhttp;
begin
http:=tidhttp.create;
http.handleredirect:=true;

blabla

end;

Если не получится то пиши в асю(на аве)

 

чото не получаеться

 

Что у тебя не получается?

 

Теперь такая ошибка:

 

Четко же написано сокет не подключен, в преведущем посте ошибка ввода\вывода.

 

Короче весь код выкладывай! Ты там, что - то неимоверное пишешь.

 

Вот весь доп. поток

PHP:

worksite:=true;
fil:=form1.ComboBox1.Text+form1.Edit4.text+'.txt' ;
 AssignFile(f,fil); //регистрация файла
 Rewrite(f); //создание файла, если он там есть, то перезаписываеться (старый удаляеться, новый пустой появляеться)
 Write(f,''); //записываем строку в файл без перевода курсора на новую строку
 CloseFile(f); //закрываем файл
site:='http://site.net/';
url:=site+form1.ComboBox1.Text+form1.Edit4.text;
Responseres:=form1.IdHTTP1.get(url);//+ComboBox1.Text+Edit4.text);
form1.edit8.Text:=Responseres;
worksite:=false;

 

Ошибка доступа к файлу.

 

Всмысле, как исправить проблему???

 

Например так:
добавляем в var

Code:

GoodFile: textfile;

А в процедуру пишем

Code:

Assignfile(GoodFile, ExtractFilePath(Application.ExeName) + 'good.txt'); //задаем файл, получаем к нему доступ
Append(GoodFile); //добавляем в него что-то, точнее даем возможность именно добавлять в него данные
Closefile(GoodFile); //закрываем и освобождаем доступ

Зы.Гуру кодеры не пинайте.
Зы2.В данном случае файл уже ДОЛЖЕН быть в папке с программой.

Ок.Открыл делфи.Примерчик, рабочий для тебя специально написал.Предварительно в папке с проектом создать bad.txt
Кинуть кнопку на форму и в обработчике Onclick прописать код:

Code:

[B]procedure TForm1.Button1Click(Sender: TObject);
var
BadFile:textfile;
begin
Assignfile(BadFile, ExtractFilePath(Application.ExeName) + 'bad.txt');
Append(BadFile);
Writeln(BadFile, ':'); // Записываем двоеточие в bad.txt.
Closefile(BadFile);
end;[/B]

Никаких ошибок доступа (=
Зы3.Делать переменную локальной или глобальной - на твой выбор.