Gå til innhold

Maranai

Medlemmer
 Vis profil  Se deres aktivitet

  • Innlegg

    98

  • Ble med

  • Besøkte siden sist

 Innholdstype 

Innlegg skrevet av Maranai

  4. ta dere moderatorer (igjen)

    i Butikker og verksteder (data)

    Skrevet

    Slutt å slett threaden min f...

     

     

    dere suger vilt, stenger tråder der jeg ikke hadde fått svar på alle spørsmålene.

     

    jeg spurte den "akutelle" moderatoren. dette fikk jeg som svar

     

     

     

    Hvorfor? Du har fått klart svar på ditt spørsmål, og om du ønsker å handle med Norek er det ingenting noen her på forumet kan hjelpe deg med. Da må du kontakte dem direkte og diskutere forhandlerstatus med dem. Det har heller ikke almenhetens interesse, derfor så jeg ingen grunn til å fortsette diskusjonen. Hvis det var viktige punkter du følte du ikke fikk svar på i tråden så fortell meg det, så skal jeg gjerne vurdere å åpne tråden igjen for det.

     

    Dersom du ønsket å diskutere en annen problemstilling angående dette foreslår jeg at du starter en ny tråd.

     

    Merk at tråder kan bli stengt uten at det indikerer at noe er galt. Det er vanlig å gjøre det når et problem er "løst". Det er bare en måte å kontrollere mengden av tråder på forumet. Hvis jeg har misforstått deg så kontakt meg gjerne igjen, mens helst uten å banne. Det er kjedelig nok å være moderator om man ikke skal få kjeft for det! (Se gjerne retningslinjenes pinkt 13: Link.

     

     

     

    han ber meg starte ny tråd hvis det gjelder en annen problemstilling, ok jeg startet. Men den ble stengt. kanskje tittelen var litt svak, men dere kunne endret det istedenfor for å stenge

  15. Hente ut <Title> fra en side

    i Programmering og webutvikling

    Skrevet

    IdHttp1 er en indy component. (IdHTTP1: TIdHTTP

     

     

    procedure funkerDen();

    var

    P1,P2, L : Integer;

    myfinaltext : string;

    begin

    form1.IdHTTP1.HandleRedirects:=true;

    form1.Memo1.Text := form1.idhttp1.get('http://www.dinside.com/bla.html');

    L := Length('<title>');

    P1 := Pos('<title>',form1.Memo1.Text);

    P2 := Pos('</title>',form1.Memo1.Text);

    myfinaltext := Copy(form1.Memo1.Text,P1 + L, P2 - P1 - L);

    ShowMessage(myfinaltext);

    end;

  19. Hvordan slette Internet Explorer?

    i IKT-drift og sikkerhet

    Skrevet

    Tar du bort IE så tar du bort Explorer også. Tror ikke det er noe sjakktrekk liksom.

    Men sålenge man bruker IE minimalt og beskytter maskina si med antivirus, brannmur og kjører noe anti.spy/troyaner-software av og til så er man temmelig trygg.

    Selv om jeg bruker Firefox til 99% av min surfing så må jeg ha IE som en backup på et par sider der ute.

    LOL DIN LAMMER, DU FJERNER IKKE EXPLORER VED Å AVINSTALLERE IEXPLORE.

    DU MÅ VÆRE SMART JÆVEL.

  20. bruke windows console i et program

    i Programmering og webutvikling

    Skrevet

    FORMAT OG JOHN, dere begge suger så heftig.

     

    unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Memo1: TMemo;
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure RunDosInMemo(DosApp:String;AMemo:TMemo);
 const
    ReadBuffer = 2400;
 var
  Security : TSecurityAttributes;
  ReadPipe,WritePipe : THandle;
  start : TStartUpInfo;
  ProcessInfo : TProcessInformation;
  Buffer : Pchar;
  BytesRead : DWord;
  Apprunning : DWord;
 begin
  With Security do begin
   nlength := SizeOf(TSecurityAttributes);
   binherithandle := true;
   lpsecuritydescriptor := nil;
  end;
  if Createpipe (ReadPipe, WritePipe,
                 @Security, 0) then begin
   Buffer := AllocMem(ReadBuffer + 1);
   FillChar(Start,Sizeof(Start),#0);
   start.cb := SizeOf(start);
   start.hStdOutput := WritePipe;
   start.hStdInput := ReadPipe;
   start.dwFlags := STARTF_USESTDHANDLES +
                        STARTF_USESHOWWINDOW;
   start.wShowWindow := SW_HIDE;

   if CreateProcess(nil,
          PChar(DosApp),
          @Security,
          @Security,
          true,
          NORMAL_PRIORITY_CLASS,
          nil,
          nil,
          start,
          ProcessInfo)
   then
   begin
    repeat
     Apprunning := WaitForSingleObject
                  (ProcessInfo.hProcess,100);
     Application.ProcessMessages;
    until (Apprunning <> WAIT_TIMEOUT);
     Repeat
       BytesRead := 0;
       ReadFile(ReadPipe,Buffer[0],
ReadBuffer,BytesRead,nil);
       Buffer[BytesRead]:= #0;
       OemToAnsi(Buffer,Buffer);
       AMemo.Text := AMemo.text + String(Buffer);
     until (BytesRead < ReadBuffer);
  end;
  FreeMem(Buffer);
  CloseHandle(ProcessInfo.hProcess);
  CloseHandle(ProcessInfo.hThread);
  CloseHandle(ReadPipe);
  CloseHandle(WritePipe);
  end;
 end;



procedure TForm1.Button1Click(Sender: TObject);
begin
 RunDosInMemo('ping www.goat.cx ',Memo1);
end;

end.

  25. hardware.no Ops = raged

    i Forumarkiv

    Skrevet

    kjære DATANERDER,

     

    Jeg gikk inn med tanke på at nå skal jeg bevise at min egen teori stemte.

    Derfor startet jeg med å være litt utfordrende, dere bet på den.

     

    Whoops.. nå har vi endt opp her.

     

    La oss ikke banne bruker uten grunn. :love:

     

    Shio vil du være med hardware.no vs me?

×
×
  • Opprett ny...