Чат на делфи =)

[Lemo]

Так давайте разбераться на счет смайликов...

Alter	
Есть RichView, поддерживает вставку компонентов и анимированных картинок.

Кто что еще скажет?

[zotox]

Сообщение от Lemo

Так давайте разбераться на счет смайликов...

Alter	
Есть RichView, поддерживает вставку компонентов и анимированных картинок.

Кто что еще скажет?

(RichView отлично подходит для чата (jpg,текст цветной))

http://programmersforum.ru/showthread.php?p=202187
http://programmersforum.ru/showthread.php?t=38369
http://programmersforum.ru/showthread.php?t=528
http://dumpz.ru/showthread.php?t=50558

Забей на свой "чат" если гугл юзать не умеешь и говорил на первой-второй странице "Давайте без оффтопа"
Впрочем дело твое

[Levsha100]

Так давайте разбераться на счет смайликов...

Мое ИМХО, как я уже говорил,- TWebBrowser... Каждое сообщение- маленькая HTML страничка, которою потом нужно запхать в рамочку и разместить на компоненте...
// По моему, так работает ася...

[Lemo]

нашел некий исходник чата, а именно отрисовку смайлов:

{-------------------Смайлы-----------------}
{:)}
if fAnsiPos(':)',str2,1)>0 then
    begin
      MyBMP := TBitMap.Create;
      SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0)+fAnsiPos(':)',str2,1)-1;
      ResStream := TResourceStream.Create(HInstance, 'SMILEY1', RT_RCDATA);
      MyBMP.LoadFromStream(ResStream);
      SS  := TStringStream.Create(BitmapToRTF(MyBMP));
      PutRTFSelection(ARichEdit,ss);
      MyBmp.Free;
    end;
{:(}
if fAnsiPos(':(',str2,1)>0 then
      begin
      MyBMP := TBitMap.Create;
      SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0)+fAnsiPos(':(',str2,1)-1;
      ResStream := TResourceStream.Create(HInstance, 'SMILEY2', RT_RCDATA);
      MyBMP.LoadFromStream(ResStream);
      SS  := TStringStream.Create(BitmapToRTF(MyBMP));
      PutRTFSelection(ARichEdit,ss);
      MyBmp.Free;
   end;
// и так далее (разные смайлы)...

{-------------------Смайлы-----------------}
     i1:=fansiPos('] ',str,1);
     i2:=fansiPos(' -> ',str,1)-9;
     if i2=0 then else begin
     if i1=0 then
            begin
            i1:=fansiPos(') ',str,1);
            i2:=fansiPos(' -> ',str,1)-9;
            end;
                    end;
      if (i1=0) or (i2=0) then else
    begin
     SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0)+i1+1;
     SelLength :=i2-i1+7;
     //fsBold, fsItalic, fsUnderline, fsStrikeOut
     SelAttributes.Style:=[fsItalic]+[fsUnderline]+[fsBold];
     SelLength := 0;
   end;
     if Get_Priv(Lines[Arow-1])=Form1.Edit2.Text+',' then
       begin
           SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
           SelLength := Length(Lines[ARow - 1]);
           SelAttributes.BackColor:=$00FEE7CF;  
           //SelAttributes.Size:=9;
           SelLength := 0;
       end;
     SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
     SelLength := Length(Lines[ARow - 1]);
     SelAttributes.Color := AColor;
     SelLength := 0;
     if length(Lines[Arow-1])>1 then begin
     if Lines[Arow-1][1]='{' then
      begin
       if (Get_Priv_Nick(Lines[Arow-1])=Form1.Edit2.Text) or (Get_Priv_MyNick(Lines[Arow-1])=Form1.Edit2.Text)
        then begin
              SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
              SelLength := Length(Lines[ARow - 1]);
              SelAttributes.BackColor:=$00E0E2E2;
              SelAttributes.Color:=clBlack;
              SelAttributes.Style:=[fsBold];
              SelLength := 0;
             end
        else Lines[ARow - 1]:='';
      end;
                                      end;
end;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
RichEdit1.Lines.Clear;
RichEdit1.Lines.Add('Коды смайлов. (для выхода нажмите Обновить/Connect) ');
RichEdit1.Lines.Add(':)');
RichEdit1.Lines.Add('8)');
RichEdit1.Lines.Add(';)');
RichEdit1.Lines.Add(':(');
RichEdit1.Lines.Add(':P');
RichEdit1.Lines.Add('):');
RichEdit1.Lines.Add('smoke');
RichEdit1.Lines.Add('love');
RichEdit1.Lines.Add('attent');
RichEdit1.Lines.Add('question');
RichEdit1.Lines.Add('good');
RichEdit1.Lines.Add('bad');
RichEdit1.Lines.Add('exit');
RichEdit1.Lines.Add('help');
RichEdit1.Lines.Add('nobody');
RichEdit1.Lines.Add('bay');
RichEdit1.Lines.Add('beer');
RichEdit1.Lines.Add('walk');
RichEdit1.Lines.Add('class');
RichEdit1.Lines.Add('cold');
RichEdit1.Lines.Add('dead');
RichEdit1.Lines.Add('p.s.');
reColor(richEdit1);
i:=0;
end;

Просто не могу тут разобраться мож кто то подскажет...

[Lemo]

Вопрос такой:как можно держать сервер вечно включенным?!
Тойсть есть серв и несколько клиентов...
Пример:вкл серв => посидел в чате пару часиков, пообщался с остальными юзерами(клиентами) => нужно уходить, выключил серв, выкл камп, ушел по делам => клиенты не смогут дальше общаться в чате(так как серв 1 и он у меня)
Вот, а так я хотел бы куда то серв закинуть, запустить его и он работает независимо выключен у меня комп или вкл...
Советывали юзать дедик... Ну вот куплю допустим я дедик, его запалят через недельку и все
Жду ваших советов!

[zotox]

Сообщение от Lemo

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

Дедик это не хакнутый компьютер/сервер (точнее не всегда... ты наверное видел на хакерских форумах типа "Продаю дедики.1 дед - 1 бакс" это хакнутые дедики как правило)(или что ты подр. под словом "запалят"?)
1 норм дедик стоит от 100wmz/месяц (смотря какое оборудование)

Вообщем тут токо дедик(не хакнутый как ты понял) поможет

[Lemo]

как то дорого!
еще варианты?..

C чем может быть связано искоженние полоски (Caption для формы) ???

[Lemo]

Как вывести время именно так 11:45, тойсть без секенд ???

А не так 11:45:06.

timetostr(time)

[ОДИНОЧЕСТВО В СЕТИ]

Как вывести время именно так 11:45, тойсть без секенд ???

function FormatDateTime(const Format: string; DateTime: TdateTime): string;

у вас кнопка F1 вообще отключена и в поисковики видимо не пускает

[Viteef]

Сообщение от Lemo

как то дорого!
еще варианты?..

Есть виртуальные серверы. У агавы 960 р. в месяц. Хотя... у нас есть несколько таких, можно разместить. Но без root доступа.