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

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

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

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

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

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

Цитата:
Сообщение от 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, 16:35   #72
cvs
 
Регистрация: 27.02.2010
Сообщений: 4
По умолчанию

Код:
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, 16:47   #73
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

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


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
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