Мультиплатформенность, 1С и т.п.

Есть вероятность принудительного "внедрения" Linux в бюджетной сфере.

Поддерживается Linux x32, Linux x64, Windows x32, Windows x64. Единожды разработанное приложение выполняется машиной Дизель-паскаль и будет работать без перекомпиляции на любой из вышеуказанных платформ.

очередная попытка написать свой аналог .NET Framework ну или JAVA-машины, если угодно

Дот нет не кросс платформена, моно - сторонняя разработка, не совсем совместимая с .net

Java для Web

многие возможности превосходят 1С значительно.

я тестил свои проги - разрабатываются в студии, запускаются в линуксе под моно, что не так делаю?

список преимуществ в студию. а то народ-то зря поди не знает

Что-то, написанное на Java большая редкость, даже вспомнить нечего

1. какая база юзается?
2. создан ли какой-то слой на базу, ориентированный на бизнес процессы? (ну к примеру как в 1С - типа регистр, или вот периодические реквизиты)

написанное на Java большая редкость, даже вспомнить нечего

Как среда разработки 1С полная фигня. Языковые возможности крайне бедны.

Ты мыслишь категориями 1С. Не бухгалтерией единой как говорится.

потому что да, не для домашних пользователей она. интересный список возможностей забавно, предъявлять претензии бухгалтерской программе в том, что она бухгалтерская. ну а все же, какие у тебя преимущества-то?

unit Main;

type
TMainForm = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Button2: TButton;
method Button1Click(Sender: TObject);
method Button2Click(Sender: TObject);
private
protected
public
end;

TSendSmtpStrings = class(TStringList)
private
protected
public
method Send;
end;

TSendHTTPString = class(TSendSmtpStrings)
private
public
method Send;
end;

TMyEnum = (En1, En2, En3);
TMyEnumSet = set of TMyEnum;

var MainForm: TMainForm;

implementation

method TMainForm.Button1Click(Sender: TObject);
var
FSend: TSendFTPString;
begin
FSend = TSendFTPString.Create;
try
FSend.Assign(ListBox1.Items);
FSend.Send;
finally
FSend.Free;
end;
end;

method TMainForm.Button2Click(Sender: TObject);
var
MSet: TMyEnumSet;
begin
MSet = [En1, En2];
if En1 in MSet then ShowMessage('En1 присутчствует') end;
end;

method TSendSmtpStrings.Send;
var
Mess: TMimeMess;
MULTYPart: TMimePart;
begin
Mess = TMimeMess.Create;
try
Mess.Header.CharsetCode = UTF_8;
Mess.Header.Subject = SubjEdit.Text;
Mess.Header.From = FromToEdit.Text;
Mess.Header.ToList.Add(MailToEdit.Text);
MULTYPart = Mess.AddPartMultipart('alternate',nil);
MULTYPart.CharsetCode = UTF_8;
Mess.AddPartTextEx(Self, MULTYPart, UTF_8, False, ME_7BIT);
if xEditButton1.Text <> '' then
if FileExistsUTF8(xEditButton1.Text) then
Mess.AddPartBinaryFromFile(UTF8ToSys(xEditButton1.Text), MULTYPart);
end;
end;
Mess.EncodeMessage;
if SendToRawSSL(FromToEdit.Text, MailToEdit.Text, HostEdit.Text, Mess.Lines, LoginEdit.Text, PassEdit.Text) then
//if SendToRaw(FromToEdit.Text, MailToEdit.Text, HostEdit.Text, Mess.Lines, LoginEdit.Text, PassEdit.Text) then
ShowMessage('Отправлено');
else
ShowMessage('Отправка не удалась');
end;
finally
Mess.Free;
end;
end;

method TSendHTTPString.Send;
var
HTTP: THTTPSend;
Code: LongInt;
SStream: TStringStream;
begin
HTTP = THTTPSend.Create;
SStream = TStringStream.Create(Self);
HTTP.Timeout = 1800000;
Code = 0;
Res = False;
try
HTTP.MimeType = 'Application/octet-stream';
HTTP.Document.CopyFrom(SStream, SStream.Size);
Res = HTTP.HTTPMethod('POST', 'http://sdfsdfsfss');
Code = HTTP.ResultCode;
if Res then
ResultData.Clear;
ResultData.LoadFromStream(HTTP.Document);
for N = 0 to ResultData.Count - 1 do
MsgBox.Items.Add(ResultData.Strings[N]);
else
MsgBox.ItemIndex = MsgBox.Items.Add('Метод POST завершился неудачно');
end;

finally
HTTP.Free;
SS.Free;
end;
//Отправляем по E-Mail
inherited Send;
end;

end.

Попробуй в 1С сделать также:

Rik
ну скриншоте какой-то Предприниматель - как я понимаю эта вещь направлена на учет чего-то
без обертки реляционной базы под бизнес-задачи - это же затратно все разрабатывать, с нуля считай!
или как у вас там все работает? можно подробнее?

Попробуй в 1С сделать также:

Попробуй в 1С сделать также:

TSendSmtpStrings - наследник от TStringList, имеет метод Send, который отправляет содержимое по e-mail, TSendHTTPString - наследник от TSendSmtpStrings, в нем переопределен метод Send, который посылает содержимое по http протоколу, внутри метода вызывается родительский Send - который отправляет содержимое по smtp.

отправка почты не такая простая задача как многие могут подумать, на самом деле там ооочень много разного рода нюансов

отображение рассылки в разных почтовых клиентах

попробуйте отправить html с картинками и картинки не просто ссылками в инет

вам придется настраивать хедеры

MailSender mail = new MailSender(какие-то параметры);