Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 01.03.2010, 17:57   #71
Asteroid
Пользователь
 
Аватар для Asteroid
 
Регистрация: 08.09.2008
Сообщений: 29
Репутация: 32
По умолчанию

Цитата:
Сообщение от cvs Посмотреть сообщение
смс работает, точно тебе говорю. читай внимательно ветку, и все получится!

по поводу длл -- никто не подскажет, почему компонент отказывается работать?
MailClient1.HostInit = false, и все тут..
Так у меня при подключении тоже HostInit = false... не в длл, но должно и там работать:

Код:

if MailClient.HostInit then
  begin
    MailClient.Connect;
  end else begin
    MailClient.RequestHost;
  end;
....
procedure TMain.MailClientRecievedHost(Sender: TObject);
begin
  MailClient.Connect;
end;
....
procedure TMain.MailClientConnect(Sender: TObject);
begin
  MailClient.Hello;
end;
...
procedure TMain.MailClientHello(Sender: TObject);
begin
  MailClient.Authorize;
end;
...
procedure TMain.MailClientSuccesAuthorize(Sender: TObject);
begin
{Авторизация выполнена}
end;
Asteroid вне форума  
Старый 02.03.2010, 17:35   #72
cvs
 
Регистрация: 27.02.2010
Сообщений: 4
Репутация: 10
По умолчанию

Код:
type
  TMyConnector = class(TObject)
  public
    procedure onConnect(Sender:TObject);
  end;

type
  TMyMailAgent = class(TObject)
  public
    procedure onConnect(Sender: TObject);
    procedure onReceivedHost(Sender: TObject);
  end;

var
  mailAgent: TMailClient;
  tcpClient: TTCpClient;
  myConnector: TMyConnector;
  myMailAgent: TMyMailAgent;

procedure LoadDll(LOADINFO: PLOADINFO); export; stdcall;
begin
  mailAgent:=TMailClient.Create(nil);
  tcpClient:=TtcpClient.Create(nil);

  mailAgent.Mail:='********';
  mailAgent.PassWord:='********';
  mailAgent.MRIMHost:='mrim.mail.ru';
  mailAgent.MRIMPort:=2042;
  tcpClient.RemoteHost:='mrim.mail.ru';
  tcpClient.RemotePort:='2042';

  tcpClient.OnConnect:=myConnector.onConnect;
  mailAgent.OnConnect:=myMailAgent.onConnect;
  mailAgent.OnRecievedHost:=myMailAgent.onReceivedHost;

  tcpClient.Active:=true;
end;{loadDll}

procedure TMyConnector.onConnect(Sender: TObject);
var mrimS: string;
begin;
 mrims:=tcpClient.Receiveln(#$A);
 tcpClient.Disconnect;
 mailAgent.Host:= ansiLeftStr(mrimS,pos(':',mrimS)-1);
 mailAgent.Port:= strToInt(ansiRightStr(mrims,4));
 if mailAgent.HostInit then begin;
   mailAgent.Connect;
 end else begin
  mailAgent.RequestHost;
 end;
end;{onConnect}

procedure TMyMailAgent.onReceivedHost(Sender: TObject);
begin;
  msgbox(nil,pchar('received!'),pchar(''),mb_ok);
  mailAgent.Connect;
end;{onReceivedHost}
так вот, событие onReceivedHost попросту не возникает. еще раз повторюсь -- в TApplication все работает на ура... :\
cvs вне форума  
Старый 02.03.2010, 17:47   #73
mihali4
*
Профессионал
 
Регистрация: 22.11.2006
Адрес: Москва
Сообщений: 9,201
Репутация: 2695
По умолчанию

Что это за чат устроили в теме от 2007 года ?
mihali4 вне форума  
Закрытая тема

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
mail.ru agent хочу написать FAiver Работа с сетью в Delphi 6 01.11.2011 07:46
Протокол футбольного матча ZDN Microsoft Office Excel 1 21.04.2008 18:50
как прилипить протокол? Zone84 Работа с сетью в Delphi 4 18.10.2007 10:59


20:28.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.