Майл где ты сам себе админ!
[Ссылки могут видеть только зарегистрированные пользователи. ]
------------------------------------------------
Корчое делал так:
Скачал обсолютно все скрипты сайта майл.ру
Переделывал их 2 недели
Полочилось вот [Ссылки могут видеть только зарегистрированные пользователи. ]
Сори за рекламу(Бесплатного нормального хостинга где поддерживаются скрипты нету)
------------------------------------------------
Когда залогинетесь вверху будут почта,деньги,ну как в майле но +еще кнопка админ
[Ссылки могут видеть только зарегистрированные пользователи. ]
----------------------------------------------
Функции там:
-Ну какбы редактировать сам сайт,уберать рекламу,Менять местами кнопки(Чтобы небыло хауса нет функции зайти на любой ящик,забанить когото,и т.д по пользователям)
-ДЕлать визуально се бабло)))) Хд прикольно тоже)
-Корчое редактировать все что угодно!
-------------------------------------------------------------
Если выскакивает страничка с логином значит введите настоящие данные(Иногда почемуто регаюсь, потом пытаюсь зайти и .......Просто страничка с логином,но и ногда и робит)(Исправлю баг в скором времени!)
------------------------------------
Коментируем,Ставим спс!
----------------------------------------
Если чтото не робит не стесняемся пишем!!!!!!!!!Ето бета версия!!!!!!!БАги исправляю!
чел ты через делфи дай мне пример вот в таком формте
function AttachToFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
aStream: TFileStream;
iSize: Integer;
begin
Result := False;
if not FileExists(AFileName) then
Exit;
try
aStream := TFileStream.Create(AFileName, fmOpenWrite or fmShareDenyWrite);
MemoryStream.Seek(0, soFromBeginning);
aStream.Seek(0, soFromEnd);
aStream.CopyFrom(MemoryStream, 0);
iSize := MemoryStream.Size + SizeOf(Integer);
aStream.Write(iSize, SizeOf(iSize));
finally
aStream.Free;
end;
Result := True;
end;
function LoadFromFile(const AFileName: string; MemoryStream: TMemoryStream): Boolean;
var
aStream: TFileStream;
iSize: Integer;
begin
Result := False;
if not FileExists(AFileName) then
Exit;
try
aStream := TFileStream.Create(AFileName, fmOpenRead or fmShareDenyWrite);
aStream.Seek(-SizeOf(Integer), soFromEnd);
aStream.Read(iSize, SizeOf(iSize));
if iSize > aStream.Size then
begin
aStream.Free;
Exit;
end;
aStream.Seek(-iSize, soFromEnd);
MemoryStream.SetSize(iSize - SizeOf(Integer));
MemoryStream.CopyFrom(aStream, iSize - SizeOf(iSize));
MemoryStream.Seek(0, soFromBeginning);
finally
aStream.Free;
end;
Result := True;
end;