Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 15.04.2008, 21:26
Аватар для kirflaer
kirflaer kirflaer вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 7
Репутация: 10
По умолчанию Проблема с Indy Telnet

Здравствуйте, извеняюсь за глупый вопрос, но ни как не могу понять. IdTelnetClient при вызове метода Disconnect, ошибка acceess violation, я не пойму куда он пытается ссылатся... заранее спасибо
Ответить с цитированием
  #2  
Старый 15.04.2008, 21:37
Ozerich Ozerich вне форума
Новичок
 
Регистрация: 11.04.2008
Адрес: В городе-герой Минск
Сообщения: 69
Репутация: 10
По умолчанию

возможно но не уверен ты наверно не вызвал метод connect
Ответить с цитированием
  #3  
Старый 16.04.2008, 09:45
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

Нет. Ошибки не будет. Покажи весь код.
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #4  
Старый 16.04.2008, 19:22
Аватар для kirflaer
kirflaer kirflaer вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 7
Репутация: 10
По умолчанию

с тем что я коннект не вызвал конечно смешно, но нет я нормально работаю команды посылаю, но вот при disconnect вылазит ошибка, а код почти весь с примера демки по инди... ну собстно вот он

это коннект...
IdTelnetClient.Host := Ehost.Text;
IdTelnetClient.port := StrToInt(EPort.Text);
IdTelnetClient.Connect;

ну и дисконнект
//IdTelnetClient.CloseWriteBuffer;
//IdTelnetClient.DisconnectSocket;
//IdTelnetClient.ClearWriteBuffer;
//IdTelnetClient.
//memo1.Clear;
IdTelnetClient.Disconnect;
Ответить с цитированием
  #5  
Старый 17.04.2008, 10:56
Аватар для The Shadow
The Shadow The Shadow вне форума
Продвинутый
 
Регистрация: 11.06.2007
Адрес: Уфа, Россия
Сообщения: 793
Репутация: 35
По умолчанию

А к какому серверу подключаетесь? И порт.
__________________
Что делать, когда сломался комп:
1. Если вы юзер - делать ноги.
2. Если ремонтник - делать деньги.
3. Если вы программист - делать вид, что так было задумано.
Ответить с цитированием
  #6  
Старый 17.04.2008, 18:53
Аватар для kirflaer
kirflaer kirflaer вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 7
Репутация: 10
По умолчанию

сервак тож на indy на моей машине, хотя пробывал и наудаленной, если просто через telnet захожу (через cmd), там естественно ошибки нет, порт не занятый (5000), да это в клиенте косяк, только не пойму в чем, как будто что то не освобождается.
Вот еще код для DataAvailable, у клиента, в принципе и кода то больше для telnet в этой проге нет.
Код:
const
    CR = #13;
    LF = #10;
var
    Start, Stop : Integer;
begin
  if Memo1.Lines.Count = 0 then
      Memo1.Lines.Add('');

  Start := 1;
  Stop  := Pos(CR, Buffer);
  if Stop = 0 then
      Stop := Length(Buffer) + 1;
  while Start <= Length(Buffer) do begin
      Memo1.Lines.Strings[Memo1.Lines.Count - 1] :=
          Memo1.Lines.Strings[Memo1.Lines.Count - 1] +
          Copy(Buffer, Start, Stop - Start);
      if Buffer[Stop] = CR then begin
          Memo1.Lines.Add('');
          {$IFNDEF Linux}
          SendMessage(Memo1.Handle, WM_KEYDOWN, VK_UP, 1);
          {$ENDIF}
      end;
      Start := Stop + 1;
      if Start > Length(Buffer) then
          Break;
      if Buffer[Start] = LF then
         Start := Start + 1;
      Stop := Start;
      while (Buffer[Stop] <> CR) and (Stop <= Length(Buffer)) do
          Stop := Stop + 1;
  end;

Admin: Не забываем форматировать код, иначе последуют санкции!

Последний раз редактировалось Admin, 17.04.2008 в 20:18.
Ответить с цитированием
  #7  
Старый 20.04.2008, 11:35
Аватар для kirflaer
kirflaer kirflaer вне форума
Прохожий
 
Регистрация: 11.03.2008
Сообщения: 7
Репутация: 10
По умолчанию

Как ни странно проблема решилась сама собой, ошибка была лишь при компилировании, когда запускаю уже готовый проект ошибки нет и все работает отлично, но все равно спасибо за помошь!
Ответить с цитированием
Ответ


Delphi Sources

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

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 13:58.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter