Платные хостинги     Раскрутка сайта     Книги по программированию

Два вопроса по поводу письма и size…, ....

- 1.Vit сколько не пытался не получается отправить письмо.Не признает Outlook_TLB; хотя импортировал!2. И по поводу size, некуда не лезет!СПАСИБО!

- 1) Что значит не лезет? На каком этапе ошибка2) Размер чего?

- 1.Такой приблизительно код: unit Unit1;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Outlook_TLB;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;var  Form1: TForm1;implementation{$R *.DFM}procedure TForm1.Button1Click(Sender: TObject);var outlook : _application;g:mailitem;beginoutlook := Coapplication_.Create;beging:=Outlook.CreateItem(olMailItem) as mailitem;g.To_ := 'a@ptic.com.ua’;g.Subject := 'Victory';g.Attachments.Add(Filename,1,1,'Attachment');g.Body :='Hi Tom';g.Send;end;end.Ошибка в uses Outlook_TLB;2.А по поводу size:procedure TForm1.Button1Click(Sender: TObject);label d,h;var f:file of byte;   b:Byte;   k:Byte;   Size:Int64;beginif OpenDialog1.execute then goto d else goto h;d:b:=$85;AssignFile(f,OpenDialog1.Filename);Reset(f);seek(f,$000266A1);write(f,b);CloseFile(f);showmessage('Поздравляю! Иньекция введена успешно )))');h:end;end.Как сделать проверку размера файла и вывести допустим в Tlabel или присвоить переменной ‘о’(допустим)?СПАСИБО!

- 1) Найди где у тебя на диске находится Outlook_TLB.pas и пропиши путь в пути поиска модулей (опции среды)2) Какой ужасный стиль!  Так пробовали?  Size:=FileSize(f);

- Почему ужасный!Я самоучка и мало работаю в Delphi!Научи или подскажи как надо!!!СПАСИБО!

- Стиль конечно не регламентируется, можешь писать как хочешь, тем более что стандартов довольно много. Просто более принят например такой способ:Код procedure TForm1.Button1Click(Sender: TObject);var f:file of byte;    b,k:Byte;    Size:Int64;begin  if OpenDialog.execute then    begin      b:=$85;      AssignFile(f,OpenDialog.Filename);      Reset(f);      seek(f,$000266A1);      write(f,b);      CloseFile(f);      showmessage('Поздравляю! Иньекция введена успешно');    end{if OpenDialog.execute then}  else    begin      showmessage('Patch has been failed!');    end;{if..else OpenDialog.execute then}highlightSyntax('delphiA4NDVi','delphi');Здесь основное правило - каждый End пишеться с таким же отступом как и Begin, все что между ними делается с отступом в 1-2 знака. Обрати внимание на примечания после End - они точно определяют к чему этот End относится, и его легче отыскать при значительной вложенности. Или иногда такой, хотя мне он лично не нравится, но это весьма распространенная форма записи, а мое мнение это лишь мое мнение и ничего больше:Код procedure TForm1.Button1Click(Sender: TObject);var f:file of byte;    b,k:Byte;    Size:Int64;begin  if OpenDialog.execute then begin    b:=$85;    AssignFile(f,OpenDialog.Filename);    Reset(f);    seek(f,$000266A1);    try      write(f,b);    except      on e:exception do Showmessage('File could not be patched. Error code: '+e.message);    end;    CloseFile(f);    showmessage('Поздравляю! Иньекция введена успешно');  end{if OpenDialog.execute then}  else begin    showmessage('Patch has been failed!');  end;{if..else OpenDialog.execute then}highlightSyntax('delphizE5MDA3','delphi');Здесь Begin пишется в конце строки, а End на уровне относящегося к нему оператора. Все что между ними тоже идет с отступом в 1-2 знака.Обрати внимание что переходы на метки в 99% случаев не нужны... Никто не запрещает ими пользоваться, но во всяком случае в таких конструкцияхкак у тебя их применять нет никакого смысла.

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD