[ Delphi / Pascal ] — начинающим: задаем вопросы (архивная - 2015)

Получилось Ура!Молодец!
Вот скажи почему в книге написано
По другому с ошибками?
Посоветуй хорошую книгу пожалуйста!

 

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

И многое от книги зависит, может там другая версия паскаля... везде по разному. У меня Turbo Pascal 7.1 стоит... и то когда писал тебе эти строчки, даже не проверял на работоспособность((( это слишком легко... и ты так когда нить думать будешь)) так что учись на практике!

 

JnK,
не работают эти два примера.

​

но спасибо за это.

 

DdoNbAsS, ты в конец каждой проги дописывай readln(что бы окошко не закрывалось сразу) или жми Alf+f5. И все отлично будет. А вообще учить по книгам не гуд

 

Можно отправлять зашифрованные гет запросы?
Как?

 

Надо отправить текст из мемо1 на электронную почту делаю так:

idmessage1.Body := memo1.Lines;
idmessage1.From.Text := 'получатель@mail.ru';
idmessage1.Recipients.Add;
idmessage1.Recipients.Items[0].Text := 'отправитель@mail.ru';
idmessage1.Subject := '+1akk' ;
idsmtp1.Host := 'mail.ru';
idsmtp1.Port := 25;
idsmtp1.Username := 'ящик отправителя' ;
idsmtp1.Password :='пароль от ящика';
idsmtp1.AuthenticationType :=atLogin;
IdSMTP1.Connect(10);
if IdSMTP1.Connected then
begin
IdSMTP1.Send(Idmessage1)
end;
IdSMTP1.Disconnect;
end;

Запускаю прогу, выпрыгивает ошибка connection closed gracefully что делать?



уже не надо нашёл видео урок
http://delphiexpert.ru/view_lesson.php?id=46

 

PHP:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,math;
var k,i:integer;
      T,B:array[1..255] of real;
      sum,sr:real;
begin
writeln('vvedite I');
readln(i);
for k:=1 to i do
     begin
          t[k]:=tan(2*k)-k*cos(k);
          sum:=sum+t[k];
          write(round(t[k]),' ');
     end;
writeln;
sr:=sum/k;
writeln(round(sr));
for k:=1 to i do
     begin
          if k mod 3=0 then b[k]:=sr else b[k]:=t[k];
          write(round(b[k]),' ');
     end;
readln;
end.

и вопрос, среднее арифметическое элементов которые стоят на позиции кратной трем или всех элементов??? просто у меня среднее арифм всех элементов..

 

logger, это не ошибка, это сообщение, что предыдущее соединение завершено.

PHP:

SMTP.Host:='smtp.mail.ru';
SMTP.Port:=25;
SMTP.Username:='ящик отправителя';
SMTP.Password:='пароль от ящика';
SMTP.AuthenticationType:=atLogin;
with IdMessage do
begin
From.Text := 'отправитель@mail.ru';
Recipients.EMailAddresses := 'получатель@mail.ru';
Subject := '1akk';
IdMessage.Body.Add('bla bla bla' + memo1.Lines);
end;
SMTP.Connect;
try
SMTP.Send(IdMessage);
finally
SMTP.Disconnect;';


Брось на форму: POP3; IdMessage; SMTP

 

как ты себе представляешь шифрованный GET запрос? при том что он выглядит так:

Code:

GET /index.php?param1=abra&param2=cadabra HTTP/1.1
Host: example.com
User-Agent: Mozilla 56.4 abra-cadabra ed
Referer: http://forum.antichat.ru/
Connection: close

и как его можно зашифровать?

ЗЫ: хз, мб тебе SSL нужен..

 

Ой спосибки,большое.
Ну тогда если не по книгам то с чего начинать то?

 

DdoNbAsS, нет, книга под рукой должна быть. Но лучше брать какие нибудь задачи и пробовать решать, заодно и вв гугле искать научишься. На intuit.ru курсы есть неплохие.

 

Подскажите авторизация вконтакте делаю так:
Http := TIdHTTP.Create(Self);
Data := TStringList.Create;
Data.Add('email='+Edit1.Text);
Data.Add('pass='+Edit2.Text);
Data.Add('expire=');
Data.Add('vk=');
StrPage := Http.Post('http://vkontakte.ru/login.php', Data);
WebBrowser1.Navigate('http://vkontakte.ru/apps.php');

Но веб браузер выводит не авторизованную страницу.

 

Ты авторизируешся через idhttp, а не через webbrowser.
Они между собой никак не взаимодействуют.

И вообще авторизация через инди не так делается.

 

logger, вконтакте вообще 3 авторизация вроде.
Vkontakte.ru/login.php
login.vk.com/?act=login
Vkontakte.ru/login.php
и потом в profile.php кидает
Вроде так

 

А что ни как не сделать, чтобы браузер был связан с IDHTTP и при нажатии на кнопку кидал уже на авторизованную страницу?

 

logger, ты напиши конкретно что ты хочешь? Делай все или через Idhttp или веббраузер.

 

Есть ли в паскале директивы, отключающие режим проверки совместимости типов?

Проблема в следующем:

поле edit - Vvod.Text, в него вводится информация, по щелчку происходит проверка:
if strtofloat(Vvod.Text)>80 ... если в поле был введен текст появляется ошибка

Нужно убрать отображение ошибки.

 

а зачем тебе убирать ошибку, если можно запретить ввод букв и символов?!?!?

 

Вот так думаю решить

Code:

procedure TForm1.Edit1.KeyPress(Sender: TObject; var Key: Char);
begin
case Key of
'0' .. '9':;
else Key:=Chr(0); {запрещенные символы не отображать}
end;

Рад буду увидеть способы проще если они есть.

 

вот это в OnKeyPress() Edit'a

PHP:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var m: set of char;
begin
 m := ['0'..'9'];
 if ord(key) = 13 then edit2.SetFocus;
 if not (key in m) then key := chr(0);
end;

или вот это в OnShow() формы

PHP:

procedure TForm1.FormShow(Sender: TObject);
var oldlong: integer;
begin
 oldlong := GetWindowLongA(edit1.Handle, GWL_STYLE);
 SetWindowLongA(edit1.Handle, GWL_STYLE, oldlong or ES_NUMBER);
end;

суть будет одна и та же! пользуйся