в DRKB есть такая тема "Как создать БД в кодировке CP1251"
Для какой именно БД действителен этот SQL-код
Если для IB, то не подойдет
Добавлено @ 14:53
этот пример взят из DelphiWorld, но там написано

Цитата

Вот такая конструкция проходит на DB2 2.1.2/NT и UDB5/NT...

нашел 2 одинаковые статьи
1. Как создать DBase базу данных?
2. Как создать dBASE таблицу во время выполнения

Благодаря вашему форуму разобрался с отсілкой мыла.
Програма пашет, только чтог пробывал.
Этот пример выдрал из хелпа., переве, програму сделал, а запустить не мог, узнал чото надо писать в поле хост и ИД теперь все вышло.[email protected]



Чтобы обновлять этот пример, Вы будете должны создать новое пустое приложение Delphi.
Разместите 5 TMemos, 8 TEdits, TListBox, 3 TButtons, TCheckBox, TNMSMTP, TRadioGroup, и TOpenDialog на форме.
Если Вы желаете маркировать контроль, они делают следующее:

Edit1: свойство Host
Edit2: Пользовательское ID
Edit3: PostMessage. Свойство даты
Edit4: PostMessage. FromAddress свойство
Edit5: PostMessage. FromName свойство
Edit6: PostMessage. LocalProgram свойство
Edit7: PostMessage. ReplyTo свойство
Edit8: PostMessage. Подчиненное свойство
Memo1: PostMessage .ToAddress свойство.
Memo2: PostMessage .ToBlindCarbonCopy свойство
Memo3: PostMessage .ToCarbonCopy свойство
Memo4: PostMessage .Body свойство
Memo5: Статус окна
ListBox1: PostMessage .Attachments свойство
Button1: кнопка Connect/Disconnect
Button2: кнопка SendMail
Button3: Очищает поля редактирования и параметры
CheckBox1:Устанавливает значение наборов свойства ClearParams
OpenDialog1: Добавляет файлы, чтобы прикрепить к E-Mail
RadioGroup1: Определяет, что файл кодирует метод **
** Добавить 2 элемента к RadioGroup1's: MIME и ПРОГРАММА UUENCODE
(В том заказе)
Вставьте следующий код в Button1's OnClick случай:

Код

procedure TForm1.Button1Click(Sender: TObject); begin  if NMSMTP1.Connected then    NMSMTP1.Disconnect  else  begin    NMSMTP1.Host := Edit1.Text;    NMSMTP1.UserID := Edit2.Text;    NMSMTP1.Connect;  end; end;

Когда Button1 нажата, если NMSMTP1 связан как определено Connected property, называю Disconnect method. Если сейчас нет никакого подключения, свойство Host установлено на значение в Edit1, UserID property установлено на значение Edit2, и Connect method вызывают, чтобы соединиться с главным компьютером SMTP.

Вставьте следующий код в Button2's OnClick событие:

Код

procedure TForm1.Button2Click(Sender: TObject); begin  if NMSMTP1.Connected then  begin    NMSMTP1.ClearParams := CheckBox1.Checked;    NMSMTP1.SubType := mtPlain;    case RadioGroup1.ItemIndex of      0: NMSMTP1.EncodeType := uuMime;      1: NMSMTP1.EncodeType := uuCode;    end;    NMSMTP1.PostMessage.FromAddress := Edit4.Text;    NMSMTP1.PostMessage.FromName := Edit5.Text;    NMSMTP1.PostMessage.ToAddress.Text := Memo1.Text;    NMSMTP1.PostMessage.ToCarbonCopy.Text := Memo3.Text;    NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := Memo2.Text;    NMSMTP1.PostMessage.Body.Text := Memo4.Text;    NMSMTP1.PostMessage.Attachments.Text := ListBox1.Items.Text;    NMSMTP1.PostMessage.Subject := Edit8.Text;    NMSMTP1.PostMessage.LocalProgram := Edit6.Text;    NMSMTP1.PostMessage.Date := Edit3.Text;    NMSMTP1.PostMessage.ReplyTo := Edit7.Text;    NMSMTP1.SendMail;  end  else    ShowMessage('You need to connect before you can send your message'); end;

Когда Button2 нажат, если NMSMTP1 gjlrk.xty, свойство ClearParams установлено на значение CheckBox1.Checked, и определяет, будут ли параметры PostMessage очищены после успешного SendMail или нет. Свойство SubType установлено в mtPlain, показывая, что посылаемое сообщение является простым текстом ASCII без специального форматирования. Свойство EncodeType установлено или на uuMime или на uuCode, в зависимости от того которій пункт в RadioGroup1 выбран. Свойство PostMessage содержит подсвойства, которые определяют сообщение E-Mail. FromAddress подсвойство установлено на адрес E-Mail, введенный в Edit4. FromName подсвойство установлено на название{имя}, введенное в Edit5. ToAddress подсвойство - TStringList, позволять множественным получателям сообщения, так что это - Текст, установлен на значение Memo1's Текстового свойства.
ToCarbonCopy и ToBlindCarbonCopy подсвойства - также TStringLists. Свойство ToCarbonCopy установлено на адреса, введенные в Memo3.Text, и ToBlindCarbonCopy свойство установлено на адреса, введенные в Memo2.Text. Тело подсвойства PostMessage содержит тело E-Mail, и установлено на значение Memo4.Text. Список файлов, которые находятся в ListBox1, установлен на подсвойство Attachments . Подчиненное подсвойство установлено на значение, введенное в Edit8.
LocalProgram подсвойство установлено на значение, введенное в Edit6. Подсвойство Даты установлено на значение, введенное в Edit3. Введенная дата будет сохранена в заголовке, даже если дата - не дата, а просто текст. ReplyTo подсвойство установлено на значение Edit7. Наконец, сообщение посылают с SendMail методом.

Если нет никакого подключения, в окне сообщений отображено, сообщение пользователю, что подключение обязано для того чтобіпосылать сообщение.

Вставьте следующий код в Button3's OnClick случай:

Код

procedure TForm1.Button3Click(Sender: TObject); begin  NMSMTP1.ClearParameters;  Edit3.Clear;  Edit4.Clear;  Edit5.Clear;  Edit6.Clear;  Edit7.Clear;  Edit8.Clear;  Memo1.Clear;  Memo2.Clear;  Memo3.Clear;  Memo4.Clear;  Memo5.Clear;  ListBox1.Clear; end;

Когда Button3 нажат, ClearParameters метод очищает параметры свойства PostMessage, и также очищает содержание входных полей на форме, чтобы получить новое почтовое сообщение.

Вставьте следующий код в ListBox1's событие OnKeyDown:

Код

procedure TForm1.ListBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin  if Key = VK_INSERT then    if OpenDialog1.Execute then      ListBox1.Items.Add(OpenDialog1.FileName);  if Key = VK_DELETE then    ListBox1.Items.Delete(ListBox1.ItemIndex); end;

Если клавиша Insert нажата, в то время как ListBox1 имеет фокус, OpenDialog1 отображается, и пользователь может выбрать файл. Если пользователь нажимает кнопку OK в Открытом Диалоге, имя файла добавляется к ListBox1's.

Если клавиша Delete нажата, в то время как ListBox1 имеет фокус, выбранное имя файла будет удалено из списка.

Вставьте следующий код в NMSMTP1's в событие OnAttachmentNotFound:

Код

procedure TForm1.NMSMTP1AttachmentNotFound(Filename: String); begin  Memo5.Lines.Add('File attachment '+FileName+' not found'); end;

Если один из файлов, указанных в ListBox1 не существует, когда Button2 нажимается, вызывают событие OnAttachmentNotFound. В этом случае, окно состояния, Memo5, модифицировано, чтобы сообщить пользователю, что указанное вложение не было найдено, и какой файл не был найден.

Вставьте следующий код в NMSMTP1's событие OnAuthenticationFailed:

Код

procedure TForm1.NMSMTP1AuthenticationFailed(var Handled: Boolean); var  S: String; begin  S := NMSMTP1.UserID;  if InputQuery('Authentication Failed', 'Invalid User ID. New User ID: ', S) then  begin    NMSMTP1.UserID := S;    Handled := TRUE;  end; end;

Если User ID, указанный непаравельно, или UserID свойство не введено, и User ID требуется, вызывают событие OnAuthenticationFailed. В этом случае, функция InputQuery используется, чтобы дать пользователю возможность исправить ошибку. Если пользователь вводит новый User ID, Обработанное свойство установлено на истину, и идентификация предпринята снова. Если пользователь только нажимает кнопку отмены, UserID свойство не сброшено, и исключение поднято.

Вставьте следующий код в NMSMTP1's событие OnConnect:

Код

procedure TForm1.NMSMTP1Connect(Sender: TObject); begin  Memo5.Lines.Add('Connected'); end;

Когда соеденение установлено с главным компьютером SMTP, событие OnConnect уведомляет пользователя о подключении, добавляя строку, в Memo5.

Вставьте следующий код в NMSMTP1's событие OnSendStart:

Код

procedure TForm1.NMSMTP1SendStart(Sender: TObject); begin  Memo5.Lines.Add('Sending Message'); end;

Когда сообщение собирается посылаться,вызывается событие OnSendStart }. В этом образце, Memo5 модифицирован, чтобы сообщить пользователю, что сообщение посылают.

Вставьте следующий код в NMSMTP1's событие OnEncodeStart:

Код

procedure TForm1.NMSMTP1EncodeStart(Filename: String); begin  Memo5.Lines.Add('Encoding '+FileName); end;

Если сообщение имеет прикрепленные файлы, когда они начинают кодироватся, вызывается событие OnEncodeStart. На этом этапе, Memo5 отображает название{имя} закодированного файла.


Вставьте следующий код в NMSMTP1's событие OnEncodeEnd:

Код

procedure TForm1.NMSMTP1EncodeEnd(Filename: String); begin  Memo5.Lines.Add(FileName+' encoded'); end;

Если сообщение имеет прикрепленные файлы, когда они завершают кодирование, вызывается OnEncodeEnd событие. В этом образце, Memo5 отображает название{имя} файла, который закончил кодироватся.

Вставьте следующий код в NMSMTP1's событие OnFailure:

Код

procedure TForm1.NMSMTP1Failure(Sender: TObject); begin  Memo5.Lines.Add('Message delivery failure'); end;

Если исходящее сообщение не сможет быть посланым, визывается событие OnFailure. В этом образце, Memo5 изменяется, чтобы сообщить пользователю о неудачи.

Вставьте следующий код в NMSMTP1's событие OnSuccess:

Код

procedure TForm1.NMSMTP1Success(Sender: TObject); begin  Memo5.Lines.Add('Message sent successfully'); end;

Когда исходящее сообщение послали успешно,вызывается событие OnSuccess. Memo5 меняется, чтобы сообщить пользователю, что сообщение посылали успешно.

Вставьте следующий код в NMSMTP1's событие OnHeaderIncomplete:

Код

procedure TForm1.NMSMTP1.HeaderIncomplete(var handled: Boolean; hiType: Integer); var  S: String; begin  case hiType of    hiFromAddress:      if InputQuery('Missing From Address', 'Enter From Address: ', S) then      begin        NMSMTP1.PostMessage.FromAddress := S;        Handled := TRUE;      end;    hiToAddress:      if InputQuery('Missing To Address', 'Enter To Address: ', S) then      begin        NMSMTP1.PostMessage.ToAddress.Text := S;        Handled := TRUE;      end;  end; end;

Если свойство PostMessage пропускает информацию, которая является для посланого успешно сообщения критической, вызывается событие, OnHeaderIncomplete. В этом примере, hiType параметр проверен, и пользователю дают возможность заполнить отсутствующую информацию. Если пользователь заполняет информацию, которая отсутствует, параметр Handled установливается не на TRUE, и програма придложит послать сообщение. Если пользователь нажимает кнопку отмены вместо того, чтобы ввести отсутствующую информацию, исключение поднято.

Вставьте следующий код в NMSMTP1's событие OnRecipientNotFound:

Код

procedure TForm1.NMSMTP1RecipientNotFound(Recipient: String); begin  Memo5.Lines.Add('Recipient '+Recipient+' not found'); end;

Если один из получателей уходящего сообщения или в ToAddress, ToBlindCarbonCopy, или в полях ToCarbonCopy, как известны главному компьютеру SMTP как не существующие, вызывается событие OnRecipientNotFound. В этом примере, Memo5 модифицирован, чтобы сообщить пользователю, что получатель не найден. Если только один получатель определен, исключение поднято, потому что никакие правильные{допустимые} получатели не были найдены для уходящего сообщения.

Описание Примера:
Когда это приложение выполнено, введите требуемую информацию в Окна редактирования и Записки. Для ToAddress, ToCarbonCopy, и полей TBlindCarbonCopy, множественные адреса могут быть введены, но они должны каждый находиться на отдельной строке (перевод каретки / корм строки между ними). Нажмите Button1, чтобы подключить и Button2, чтобы послать сообщение. Button3 используется, чтобы очистить входные поля, так что новое сообщение может быть введено. Щелкая Button1 второй раз разъединит от главного компьютера SMTP.

Это сообщение отредактировал(а) Alex - 23.1.2005, 15:51

Ссылка на основной архив статей битая. По ней не получается скачать архив. Исправьте, пожалуйста

ProESM, так это же старая DRKB.

Вот новая:

http://forum.vingrad.ru/forum/topic-138426.html