Вопрос № 74735: Здраствуйте, уважаемые эксперты!
У меня такой вопрос:
Как можно при помощи моего приложения
посмотреть есть ли у меня письма в почтовом ящике на MAIL???...Вопрос № 74755: Здравствуйте. Назрел у меня один вопрос. На форме находится Tedit1, немного ниже Tlistbox1, справа Memo. Собственно проблема в чем. В Tlistbox1 находится довольно много строк. Как мне сделать так, чтобы при вводе текста в поле Tedit1, в Tlistbox1 авт...Вопрос № 74762: Как преобразовать string в char? Для получения данных из Edit?
....
var
VtorTip : char;
.....
begin
....
VtorTip := .... Edit1.Text;
end;...Вопрос № 74792: Здравствуйте уважаемые експерты!
Вопрос следующий: как в Delphi можно преобразовать строку unicode в ASCII?...Вопрос № 74870: Здраствуйте. В Delphi при попытке соединения с сервером (имеется ввиду TServerSocket) по IP адресу, выдает ошибку: "Ansynchronous socket error 10660". Что это означает? Как устранить такую ошибку, чтобы нормально передавать сообщения сервер...Вопрос № 74895: уважаемые господа эксперты подскажите как с помощью компонентов
indy осуществить клиент серверное приложение, причем сервер в виде формы, а клиент консольное приложение. ...
Вопрос № 74.735
Здраствуйте, уважаемые эксперты!
У меня такой вопрос:
Как можно при помощи моего приложения
посмотреть есть ли у меня письма в почтовом ящике на MAIL???
Отвечает: Gladiator
Здравствуйте, Павлов Сергей Сергеевич!
Для этого можно использовать стандартный компонент TIdPOP3 из вкладки Indy Clients.
procedure TForm1.CheckMail;
var MsgCount: integer;
begin
screen.cursor := crHourglass;
if Pop.Connected then Pop.Disconnect;
Pop.Host:='mail.ru';
Pop.Port:='110';
Pop.Username:='abrosimov';
Pop.Password:='TYds67gh';
try
Pop.Connect(6000);
except
on E: Exception do begin
Statusbar1.Panels[0].Text:=E.Message;
Statusbar1.Update;
screen.cursor := crDefault;
Exit;
end;
end;
MsgCount := POP.CheckMessages;
if FMsgCount > 0 then
begin
Statusbar1.Panels[1].Text:='Писем - '+IntToStr(FMsgCount)+', Общий размер - '+
FloatToStrF(Pop.RetrieveMailBoxSize / 1024,ffFixed,7,2)+ ' кБ';
end else
Statusbar1.Panels[1].Text:='Писем - 0';
Statusbar1.Refresh;
screen.cursor := crDefault;
end;
Ответ отправил: Gladiator (статус: 8-ой класс)
Ответ отправлен: 08.02.2007, 14:49 Оценка за ответ: 5 Комментарий оценки: Спасибо! То что надо!
Вопрос № 74.755
Здравствуйте. Назрел у меня один вопрос. На форме находится Tedit1, немного ниже Tlistbox1, справа Memo. Собственно проблема в чем. В Tlistbox1 находится довольно много строк. Как мне сделать так, чтобы при вводе текста в поле Tedit1, в Tlistbox1 автоматически находилась эта строчка. И тут же в Memo выводилась информация назначенная найденной строчки. (Мне надо реализовать программу похожую на Chemax). Заранее спасибо.
Отправлен: 08.02.2007, 11:54
Вопрос задал: Ausepp (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gladiator
Здравствуйте, Ausepp!
Для поиска строки с текстом используйте:
var ndx: integer;
ndx:=SendMessage(ListBox1.Handle,LB_FINDSTRING,-1,Longint(Pchar('Искомый текст')));
if ndx <> LB_ERR then
//ndx - индекс строки, в которой находится "Искомый текст";
А зная индекс строки, вы можете реализовать задуманное.
Ответ отправил: Gladiator (статус: 8-ой класс)
Ответ отправлен: 08.02.2007, 14:39
Вопрос № 74.762
Как преобразовать string в char? Для получения данных из Edit?
....
var
VtorTip : char;
.....
begin
....
VtorTip := .... Edit1.Text;
end;
Отправлен: 08.02.2007, 12:33
Вопрос задал: Dico (статус: Посетитель)
Всего ответов: 5 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Архангельский Андрей Германович
Здравствуйте, Dico!
Var
ed_str : String;
VTorTip : char;
Begin
ed_str := Edit1.Text;
VtorTop := ed_str[2]; // 3 символ строки
end;
--------- Если дело заслуживает быть сделаным, то оно заслуживает, чтобы его сделали ХОРОШО
Отвечает: Лукьяненко Алексей Валериевич
Здравствуйте, Dico!
Тип String - это массив символов Char. И обращаться нужно соответственно:
VtorTip := .... Edit1.Text[1]; // Во VtorTip будет помещен первый символ из Edit1.Text. Но это только тогда, когда там что-то введено. Иначе будет ошибка
Отвечает: Базанов Иван Александрович
Здравствуйте, Dico!
Char - это один символ.
Например
VtorTip = Edit1.Text[1]; // Первый символ
Преобразовать ВСЮ строку в char невозможно.
--------- Программист ошибается дважды: первый раз при рождении, второй при выборе профессии
Отвечает: Базанов Иван Александрович
Здравствуйте, Олекса aka SoW!
Можно протсто присвоить одну строку другой... :)
var
s : string;
ws WideString;
begin
s := ws;
end;
--------- Программист ошибается дважды: первый раз при рождении, второй при выборе профессии
Отвечает: Gladiator
Здравствуйте, Олекса aka SoW!
Для преобразования Unicode в Ansi используется функция:
WideCharToString
Ответ отправил: Gladiator (статус: 8-ой класс)
Ответ отправлен: 08.02.2007, 15:31
Вопрос № 74.870
Здраствуйте. В Delphi при попытке соединения с сервером (имеется ввиду TServerSocket) по IP адресу, выдает ошибку: "Ansynchronous socket error 10660". Что это означает? Как устранить такую ошибку, чтобы нормально передавать сообщения серверу?
Всем спасибо за внимание.
Отвечает: Gladiator
Здравствуйте, Иван Ивановввв!
Нет соединения с сервером. Вы посылаете текст, не проверив имеющееся соединение. Например, я бы сделал так:
try
ClientSocket1.Active:=true;
except
ClientSocket1.Active:=false;
Exit;
end;
if ClientSocket1.Socket.Connected then ClientSocket1.Socket.SendText(S);
А ещё имеется у клиента:
procedure TForm1.ClientSocket1Error(Sender: TObject;
Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
var ErrorCode: Integer);
begin
StatusBar1.SimpleText:=GetErrorString(ErrorCode);
ErrorCode:=0;
end;
Ответ отправил: Gladiator (статус: 8-ой класс)
Ответ отправлен: 09.02.2007, 08:17
Вопрос № 74.895
уважаемые господа эксперты подскажите как с помощью компонентов indy осуществить клиент серверное приложение, причем сервер в виде формы, а клиент консольное приложение.
Отправлен: 09.02.2007, 07:26
Вопрос задал: василий1 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 2)
Отвечает: Troyan
Здравствуйте, василий1!
Здесь лежит описание создания клиенто-серверных приложений с помощью TIdTCPServer и TIdTCPClient - http://delphi-ex.narod.ru/client_server_indy.htm
А консольное приложение или в виде формы уже зависит от того, какой проект вы создаете - File->New->Application (Файл->Новый->Приложение) создает приложение в виде формы, File>New>Other и в появившемся окне среди прочего найдите пункт Console Application (подробнее о создании консольных приложений - http://www.nextaz.com/showarticle.php?id=1113113396)
--------- Кто к нам с чем за чем от того и того!
Ответ отправил: Troyan (статус: 7-ой класс)
Ответ отправлен: 09.02.2007, 10:58
